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Dellocate a response id 
Recycle a response id 
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RDTCORP 

_RDTWAIT 

LKP_MSGWAIT = Scan message wait queues 

SNEW SB = New/Reused System Block Available for Polling 
S$POLC_PROC = Declare a process name to the poller 
POLL MODE - Enable/Disable polling for a process 
RT_POCL = Start poll of requested processes 
SDITR_LOOKUP = Look “eB presets names on remote node 
$POLC_MBX = Declare Polling Notification Mailbox 
CANCEL_MBX = Cancel Polling Notification Mailbox 
SSHUTDOQN = Shutdown all SCS virtual circuits 
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SwW=1 wor PRISU ; SET SWITCH TO GENERATE PARAMETE 
LE SCSVEC - System Rae EARS Service Vectors 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL 4 a UIPHENT Ca EORPORATION, MAYNARD. MASSACHUSETTS. 


THIS SOFTWARE Soh tn A a a UNDER A LICENSE reg MAY He USED AND core 


OTH 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
arePORaTi on NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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FACILITY 


Executive data base 


ABSTRACT: 


This module contains the sepet entry point vectors for System 
Communications Services (SCS) argets of these vectors are 
updated to point to the actual SCS image after it is loaded into 
non-paged pool. 


ENVIRONMENT: 
AUTHOR: KERBEY T. ALTMANN, CREATION DATE: 22-APR-1981 
MODIFIED BY: 
v03-033 puToes? Thiel 10-Aug-1984 
Correct r fergnce + qaDist _MAXRDIDX to match change 
made in V03-032 below. 
v03-032 NPK3058 N. Kronenber 25-Jul-1984 


x maximume RDTE index to be index rather than number 
of RDTEs configured. 


v03-031 NPK3056 N. Kronenberg 23-Jul-1984 
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SESLA ystem Communications Service besiege 1 =eEe 138% 9: 13: 38 an rvias Gee Hm hah Page Af 


age capacity in Connection Descriptor List for addition 
of COT’s beyond the sysgened number. Add to SCS sate. CDT 
the abt) tty to allocate more cols from pool ift 
are no | CDTs Linked to the CDL. 
nN computation ef CDL max index in CDL header 


Fix ne Bas 
(it was # CDTs not index.) 

v03-030 TCM0001 ayo Matthews 20-Jul-1984 
Remove routine 10C87 READCRB; put it in TOSUBNPAG instead. 


v03-029 ergot ts erbe Yast Altmann 20-Mar-1984 
oer wentry - Ss SHUTDOWN to shut fon all "3cs virtual 
circuits. Add new pointers for MSCP image and List of PDTs. 
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vO3-028 KTA3102 Kerbey T. Altmann 09-Feb-1984 
Prevent RDT/CDT sequence numbers from ever being zero. 
v03-027 TMKO001 To 05-Jan-1984 


dd M. 
Change SCSSDIRECTORY so erat it sends a counted sequential 
arsaoge back to the remote SYSAP with the results of the 
directory lookup. eo CTORY was sending an un-counted 
sequential not d if the local SCSMAXMSG size yes pester 
than the remote Sc SMAX RaSG size, then this was resulti ng in 

the remote port driver receiving a sequential message larger 
in size then any of its receive buffers. 


V03-026 KDM0063 Kathleen D. Morse 03-Aug-1983 
Replace random number generation usage of PRS$_TODR with 
usage of EXE$GQ_SYSTIM 


v03-025 NPK3029 Kronenberg 22-Jul-1983 
ace most fields” in : fresht allocated CDT (needed 
er connection 
Rodi Fy: s¢ +4 Seah PTH to “take advantage of rearranged 
path 


V03-024 MSHO010 ann Hinden 11-Jul-1983 
Fix method of sdeettins SCSSGA_ EXISTS. 


v03-023 MSHO009 Maryann Hinden 27-Jun-1983 
Modifications to error handling for SCSS$DIRECTORY. 
Keep process get ior from polling a given system until 
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, current poll complete. 

1 v03-022 MSHO008 Maryann Hinden 27-J un~1983 

1 Use remote process name in DIR LOOKUP mA os von *t get 
! deallocated. 

1 v03-021 psnoee? Reryann Hinden 33-Jun-1983 

4 e SPRCPOLDEF. Check for non 989 ooh” not available 
1 ; *S¢S$D DIRECTORY. Add SCSS$GA "Ex STs" to start CONFIGURE 
! process. 

1 v03-020 MSHO006 Maryann Hinden 18-May-1983 

! Put nodename in process poller mailbox. 

1 v03-019 ROWO0184 Ralph 0. Weber 19-APR-1983 
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Change order of yore queue searching in SCSS$LKP_MSGWAIT so 


that message buf 


t queue is scanned first. 
because the wa 


rw 
PADRI 


enters CDRPs into to the send credit 


ER 
and nessape bul ter vate ueues makes the message buffer wait 


queue i ely to contain older (longer waiting) C 


connection manager oor” s gai stonat level of age ordering 


to help provide sequential delivery of messages. 

v03-018 MSHO00S Maryann Hinden 19-Apr-1983 
Use only one CDRP per connection. 

VO3-017 JWHO217 Jeffrey W. Horn 14-Apr-1983 
Change second SLV table to be generated with SLVTAB macro. 

V03-016 MSHO004 Maryann Hinden 08-Apr-1983 
Changes to support HSC. Various bug fixes. 

V03-015 JWHO211 Jeffrey W. Horn 13-Apr-1983 
Use SLVTAB macro to produce loadable-code prologue. 

V03-014 MSHO003 Maryann Hinden 01-Apr-1983 
Move location of MY_PROC. 

V03-013 MSHO002 Maryann Hinden 24-Mar-1983 
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DO_RSB: 
CLRL RO Failure status 


Ignore call to unloaded routine 
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-ALIGN LONG 
: Vector List 


SCSSAL bones : 


sPSECT $$$000,LONG 
scs START: 
SLVTAB END = SCS_END 
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SCSLOA = System Communications Service Loadcode 1 AX/VMS o V04-00 SCSL 
v62=000 DECLARATIONS BrSEp=]9Be Osiarics eve eRcisesvEt manct mee dh vores 
SCS$GQ_CONFIG:: 
LOND SCS864_L0CAL SB 
«LON SCS$GA_LOCALSB 
LIST_HEAD SCS$GQ_DIRECT 
LIST_HEAD SCS$GQ_POLL ; List of SPPB's giving process names 
; Longword pointers 
p POINTER SeS86l 807 
POINTER SCS$GL_COL 
0 POINTER SCS$GL_RDT 
8 POINTER SCS$GL_MCLEN 
0 POINTER SCS$GL_MCADR 
00 POINTER SCSSGL_MSCP 3; Start of MSCP server process 
3 POINTER SCSSGL~PDT : Singly Link List of PDT's 
0 : 
i ; Process poller static data 
00 : 
$60 SCSS$GA_ ol i pats 3; Mask of procasees to enable 
B65  $B$S_ENBMSK : in new systems that appear 
0 SCS$GW _NEXTBIT:: ; Next bit ovaitenie for assignment 
; -WORD 0 
5 SCSSGA_EXISTS:: .LONG 0 ; Flag to indicate presence of SCS 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
5 


IIIS SS AAAI AAI II I IONIC 


PIP OPIPIPIPIPIPIDIPIPIPIPINININIPIPIPIPIPIPINIPIPIPIPINPIPINIPIPIPIPIPIPOPIPIPIPIPIPIPUPIPIPIPIPINIPIPIP IPN 
PEAR @ OOD NA NES © OD NA NLS WIN O OO NAN E WIN CO ODNAUES WN 0 OONOAOUS UT 00 


INITRT 
SUBTYP = DYNST_LC Nee” - 
FACILITY= <SCS “Coadable> 

.ENDC 

LOADVEC SCSSACCEPT 

LOADVEC SCS$ALLOC_CDT 

LOADVEC SCS$ALLOC-RSPID 

LOADVEC SCS$CONFIG_PTH 

LOADVEC SCS$CONFIG SYS 

LOADVEC SCSS$CONNECT 

4 LOADVEC SCS$DEALL_CDT 


04-000 


- sygten Communications Service 
DECLARATIONS 
47 LOADVEC SCSSDEALL_RSPID 
$f : LOADVEC $8 DISCORNE 
8 LOADVEC SCSSENTER 
6 LOADVEC SCSS$LISTEN 
4 LOADVEC SCS$LOCLOOKUP 
6 6 LOADVEC SCSSREMOVE 
? 86 LOADVEC SCSSRESUMEWAITR 
A 6 LOADVEC SCSSUNSTALLUCB 
of 64 LOADVEC SCSSLKP_RDTCDRP 
4 65 LOADVEC SeeLeP RDTWAIT 
79 06 LOADVEC SCSSRECYL_RSPID 
7 LOADVEC SCSS$FIND_RDTE 
8 8 LOADVEC SCS LKP_ASGWAIT 
08 LOADVEC SCS$DIR_LOOKUP 
08 0 LOADVEC Hits SB, ,.DO_RSB 
09 71 LOADVEC SCS$POLC_PROC,+DO0_RSB 
09 if LOADVEC SCS$POLL_MODE 
09C 7 LOADVEC SCSSPOLL_MBX, ,DO_RSB 
OAl 27% LOADVEC SCSSCANCEL_ MBX 
OA6 75 LOADVEC SCS$SHUTDOON, ,DO_RSB 
ea 
GOB 4 3; End of List 
QOAB 80 If NDF ,PRMSW 
AB 81 «NLIST 
OAB Hf LFF 
FRFFFFFFF OAB ~ LONG -1 
han 
DOA 36 3; The SCA process name poller makes the 
OAF 88 ASSUME IPL$_TIMER EQ IPL$_SCS 
a + ASSUME IPLS_SYNCH EQ IPL$_SCS 
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Called when an SB is created/reused 
Declare a process name to the poller 
Enable/Disable polling for a process 
Declare a mailbox to receive poller notifi 
Cancel notifications to a mailbox 

Shut down all SCS virtual circuits 


Don't clutter vect 
For 3 pd with § 
End of vecto 
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Search for processes on remote node 


N 1 
SCSLOA = System Communications Service Loadcode 16-SEP-1984 219: AX/VMS Macro V04-00 
v04-000 INITIALIZATION CODE moet 1 90:13:38 LEYS SRCISESVEC MAR ST 
vv 38 . -SBTTL INITIALIZATION CODE 
AF 94 ; This code is called once upon the Loading of SCS. It initializes any 
v4 $6 : piece of SCS that needs it. It then deallocated itself to pool. 
AF 297 ° 
AF 28 INIT_BEGIN: 
5E .” ¢ AF 9 SUBL #12, SP ; Get some scratch area 
56 E 00 MOVL SP, R6 3; Set a pointer 
a coe Biase este 
3; Do the Request Desc 
s850 9 ee Hh BRE TS ae tceaat acs 
; 3; Get a sequence number 
01 A6 10F3 BF 0 0 BF ¢ ADDW2 #*XxTOF3, 1(R6) ; Permute the low byte 
0092 3 0c 8S BSBW WnpT COL ; Do the Connect Desc 
5E of CO 00C7 8 ADDL #i2, SP 3; Release the scratch area 
49 E9 OOCA 8 BLBC 0 $ 3; Check for error 
CD 6309 LISTEN MSGADR=W*SCSSDIRECTORY,- 
cD 10 ERRADR=W“*LISTENERR,=- 
cD 11 LPRNAM=B“DIRNAME ,- 
OCD 1 PRINFO=B“DIRINFO 3; Put our name in directory-leave 
0E4 1 3; (MUST BE AFTER INIT OF CDT) 
2F 50 9 QOE4 14 BLBC RO, 10$ 3; Check for error 
0164 0 O0E7 15 BSBW POLL ER INIT : Initialize process name poller 
&? 50 €9 OOEA 16 BLBC 10$ ; Branch on error 
50 FFOF CF DE OOED 317 MOVAL SCS_START, RO $ Set RO--> start of code 
00000000'GF 50 oD og 18 MOVL RO, G*SCS$SGA_EXISTS ; Indicate presence of SCS 
OF 19 : ; flag to start CONFIGURE process) 
51  0280'8F if OF9 0 MOVZWL #<CODE_HEADER-SCS_START>,R1 ; Set the size of just the init code 
FFOS CF 51° A OF 1 SUBWS = R1,SCS_START+8,- 3; Compute size of remaining code 
0288' CF 19 ‘ W* CODE “HEADER+ ; 
53 0000004'GF 9E& 0106 MOVAB G*EXESGL_NONPAGED+4,R3 ; List head 
0000000 ' GF 16 198 4 JSB GrEXESDEALLOCATE 3; Just the smile on the Cheshire cat... 
50 01 DO O11 5 MOVL #1,R 3; Set success 
05 V8 } 10$: RSB 
17 358 
52 4F 54 43 45 52 49 44 $f 33 $3 $3 Ne 9 BIRNAME:.ASCII /SCSS$DIRECTORY / 
70 20 2C 79 74 69 63 20 $? 61 oe 57 0127 330 DIRINFO:.ASCII /What city, plez?/ 
3F 7A 65 6C , ; ‘ 
! g § ; Calculate a random sequence number from the system time 
137 4 S€0_NO: 
66 00009902" GF 0 0137 5 G“EXE$GQ_TODCBASE+2,(R6); Get middle bits of system time 
5 66 C 01 ‘ $ MCVZWL (R6), RO 3; Get low 16 bits 
51 02 6 C 014 MOVZWL 2(R6S, RI : Get another 16 bits 
51. 5 ca 145 8 MULL2 RO, RI : Multiply them 
50 01 Ag C 0148 MOVZWL 1(R6), RO : Add in a fudge 
51 50 Ci 014 40 ADDL3 RO, RI, (R6) : Store away for later 
01 a6 «BSC 41 TSTW =: 1 (RB) : Check for zero 
0 1 1 4g BNEQ 10$ 3; Not so, okay 
01 Ab 8 1 4 INCW =. 1(R6) ; Yes, fix it 
! rf: 10$: RSB 
159 46 ; Allocate and initialize the Connection Descriptor List 


¥Ou=000 


4 lal 
36000 D4'EF 


2 
4 
7 Bpae 
1 4 
0000 wall F 
10 
55 F AS44 
5 F 
1 5 


°$0 


54 


7 


54 vepenaneh 

51 00 6€ ; 
00000000'9F 10 A2 
51 


62 


08 Al 


-_ | 
a 
om rary.) 
a wa 
my 


MAUOOVTIWIOOW Pw 


woormooun 


on 


SOOOOOOOCOOOCOOOSOCOOOOCOOOOOOOOCOOCSCOOOCSOOOOOCOCOOCCOOCOOOOOOOCOOOOOoOO Pe 


coor 


cocoon 
- ooonom mro 


@2wo 


ea 
~ 


2S SS OOOO WOW COW WOO COO NI NII NIOOOOUIUTIUI 


a a a a ee a ee ee ed od RO 
COLEOY KVDVIVIVIVIVIVIVI Ov S NOOO NNOWOWOO 


RB hhh te ee oo RE 4 4 4 4 tee TS 
WWOOD DOO $$ MF OL OOO FOW™O POOWOYC 


>o 


=o 


DOOOOOOO OO OO OO 0000 00 09 09 09 09 09 09 09 INI NIN SINS A AAA AAA AMM FCO 


=] 


WPI OOD NIA NE WN 0 OD NA UNE WIN 0 OOD NIA UE WAIN 3 0 OD NAME WN O OONAOUES WOU 


B 2 
ications Service Loadcode 1 1 AX/VMS o V04-00 Page 
CODE tt a EY a ae oe ve Of, 
INIT_CDL: 
MOVZWL @#SCS$GW_CDTCNT, R4 3; Pick up number of (DOT's to alloc 
ADDW R4,SCS$GO_ CDTMAX 3 Add "eysgened. 2 CDT’s to # extension 
MOVZWL es<cpy se SAENGTHS1590°C155,87— "aes yon COT size 
MULLS R7 ; Get total amount of sp 
ADDL AStsBK“cDTENT, R4 : Get # CDL pointers to Chis needed 
MOVL #e0 L$C_LENG RS ; Fixed portion of CDL 
MOVAL 15(R DERI, "i : Compute total CDL size with 
BICL #15, R ; _appropriate rounding 
ADDL R5, RI ; Compute total pool needed 
BsBwW SS éSC§ -ALONONPAGED : Allocate it 
BLBC RO, 20$ ; Error = no memory 
; R1 = Size of allocated block 
3 R2 ==> Allocated block 
3; R46 = gyer's to allocate now + # extension CDTs allowed 
; RS = Size of COL (Rounded up) 
3; R?7 = Size of CDT(Rounded up 
SUBL hig A 4h oR4 ; Back off R4 to # CDT's to allocate now 
PUSHR #*M<RO,R1, RB R4,R5> ; Save re 
movcS #0. (SP),- nO. Ri R ) $ Clear it all out 
POPR #*M<RO,R1,R2.R3,R4,R5> 
MOVAL  CDL$C CEngtatRas * 
OPS CoSGt cL ; Set pointer to CDL in cgysten space 
MOVAB (R2)CR5J], R1 ; Get pointer te to first 
MOVL R4, (R2) ; Set COTs initially 
DECL (RO)+ ; Convert # CDTs to ane initl index 
MOVL Ri, ng} ; Set first free CDT 
MOVW RS, (R2)+ 3; Set size of CDL 
MOVW #DYNSC_SCS!- 
<DYNSC"SCS_CDL@8>,(R2)+ ; Set type and subtype 
CLRL (R2)+ ~ 3 floar reserved area 
CLRL RS : Initialize index 
10$: MOVL R1 (ng) 3; Set address 
MOVAB (RI)CR7I, R3 : Get address of next CDT 
MOVL R3, COTSL_LINK‘R1) ; Set it into Link field 
MOV R7, CDT$W_SIZE(R1) ; Set size field 
MOVW #OYNSC_SCS!- 
<DYNSC"SCS_CDTa&>, - 
g0T3e TYPE(R1) ; Set type and subtype 
MOVW R COT$L_LCONID(R1) ; Set index piece of CONID 
MOV UcRey . COTSL LCONID+2(R1); Set sequence piece of CONID 
CLRL COT W_STATETR1) ; Set state to virgin 
MOVAB CDTSL_WAITQFL(R1), - 
435 sey Ba LE 3; Set up initial cond 
MOVAB CDTSLIWAITQFL(R1), - 
COTSL_WAITQBL(R1) ; Set up initial cond 
MOVAB 33h dy EBS e 
COTSL_CRWAITQFL(R1) 3; Set up initial cond 
MOVAB 335 iy BD Ee - 
gt L_CRWAITQBL(R1) 3; Set up initial cond 
OVL R3, Ry 3: Get next 
AOBLSS R4, R5,108 ; ot until all done 
CLRL = = COTSCLENGTH(R1) : Zero out final next pointer 
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v04-000 INITIALIZATION CODE gee 1 3be 90: 19:38 SYS.SRCISCSVEC.MAR; 1 . (1) V04~( 
50 =«6—01 Bo 1FB 4 : MOVL #1, RO 
4 d 20$: RSB 
4 ? ; Allocate and initialize the Request Descriptor Table 
fe OG : INIT_RD 
1FF 410 ASSUME RDS$C Vagb hs EQ 8 
54 00009900"9t 3C «6€O1FF 0 411 MOVZWL a@#SCS$GW_RDTCNT, R4 ; Pick up number of RDTE's 
1 18 06 : 41g MOVL #RDTEC ENGTH, R1 : Fixed portion 
51 6144 41 MOVAQ (R1)CR& 3 Total space needed 
062 414 BSBW SCS_ALONONPAGED : Allocate it 
7 3 1 415 BLBC RO, 208 3; No space, error 
53 BA : 1 416 MOVAB Rot sc LENGTH(R2), R3 ss ;: Set past RDT 
V " w ; Set pointer to n system space 
aetteall °' 5 4 8 } 34 tka r aFSCSS6 RDT ; a ROT i 
, ; Save 
8 D0 0 f 419 MOVL Re. (R2)+ : Set initial condition 
8 5 00 4 620 MOVL RS, (R2)+ ; Ditto 
8 51 B60 7 421 MOVW R1, (R2)+ 3; Set size field 
82 0660 8F B80 A 4&4 § MOVW #DYNSC_SCS!- 
F 4 <DYNSC_SCS_RDT@8>,(R2)+ ; Set type & subtype 
82 53 70 8 F 424 MOVQ R3, (R2)+ ; Set first free RDTE & # RDTEs 
FC A D g 425 DECL -4(R2) ; Convert # RDTEs to maximum index 
8 D4 0 4 § CLRL (R2)+ ; Clear out reserved field 
53 OB8A 9E 0 + 4 MOVAB RDSC_LENGTH(R3), R3 ; Set R3 point to next RDTE 
82 83 7E 0238 428 10$: MOVAQ (R3)4, (R2)+ ; Set next free RDTE Link 20 2( 
82 B4 0 if 429 CLRW (R2)+ ; Set state to FREE 
82 01A6 8B 8 4 430 OVW 1(R6), (R2)+ ; Set in sequence number 
F454 SCO#F 44 431 SOBGTR R4, 10$ : Loop until done 
FB A2 D4 0247 $36 CLRL “RD$C_LENGTH(R2) ; Zero out final next pointer 
50 01 dO 8 4A 43 MOVL #1, RO 
05 3 eee 20$: RSB 
8 rt} £38 3 Initialize the process name poller 
024E 438 POLLER_INIT: 
53 Q0000000'GF DE 0 rt 439 MOVAL 9, a5 558e._coMr 56.83 ; Address of system block Listhead 
5 63 00 025 440 MOVL (R3),R2 3; Address of first SB 
5 32 D1 0258 441 10S: CMPL Re R$ : Back to Listhead? 
08 13 0258 Ade BEQL 208 + Branch if done 
O6F1 30 5D 44 BSBW SCSSNEW_SB ; New system to egtt 
52 62 DO 0260 444 MOVL SBSL_FLINK(R2) ,R2 ; Chain to next SB 
F 11 ? ree BRB 10$ 3; Iterate over known systems 
$3 G47 ; Design note: 
62 449 ; The following could be done in less code by having EXESTIMEOUT make 
6 450 ; the call. The tradeoff is that if EXESTIMEOUT calls the poller 
65 451: then there is a JSB/RSB overhead every second when not in an SC§ 
65 126 : environment. In an SCS environment, however, a TQE and the 
6 434 3 associated queue management is avoided each second. 
51 30 35 é 455 20$:  MOVZWL #TQESK_LENGTH,R1 ; Size of a TQE 
95¢B 0 496 BSBW  _SCS_ALONONPAGED : Allocate a TQE 
3 E9 6B 45 BLBC RO,30 3 Exit on error 
08 A 1 8 $28 MOVW R1, TQESW_SIZE(R2) ; Store size 
OA A F 45 MOVB YNSC_TOE, TOESB_TYPE(R2) ; Store type 
A 5 7 460 MOVB #TOQESC“SSREPT, TOE$B_RQTYPE(R2) ; Store type of timer queue entry 
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mmunications Service Loadcode 16-SEP-1984 00:1 AX/VMS Macro V04-00 Page 10 
ION CODE g-§ SEP- sats 88: 13: 38 FeyS. SRCIJSCSVEC.MAR; 1 . (1) 
4 MOVAB) W*START OLL TQESL_FPC(R2) ; Address of timeout routine 
4 ASSUME TOE SL. FR3+ Fa, TOESL_FR4 

4 CLRQ 1a 7 “FR (Re : Zero R3 and R4 

4 : EMUL #10*1000*1000,41,40, - ; Delta time = 1 second 

46 TOES. DELTA(R2) 

4 § MOVL R2,R 3; Address of TQE 

4 MOVG GTEXE $a SYSTIME,RO : Immediate timeout 

4 5 JSB G*EXESINSTIMQ 3; Link into timer queue 

¢8 MOVL S“#SS$_NORMAL ,RO ; ALL is well 

$f9 30$: RSB 

156 LC=. 

2f7 -=<LC+15>8-16 ; Align on 16 byte boundary 

th2 3 : Put a SLV prologue on this piece. 

239 toe _HEADER: 

$28 SLVTAB END = SCS_END, - 

47 TYP = DYNSC_L¢_SCS, - 

£00 FACILITY= <SCS_Coadable> 

482 ; 

i ; Some SCS loadable data: 

485 ° 

486 SCSSK_CDTEXT == 100 ; Allow # CDT's to be extended 

rt t4 ; by 100 beyond sysgened value 

$88 SCS$GW_CDTMAX: : 

491 -WORD SCSS$K_CDTEXT~-1 ; This will be the maximum CDT 

$36 ; index ever allowed in the COL. 

49 ; It = 100-1 + sysgened # CDT's 
494 ; to be filled in during SCS init 
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yor +000 SCSSACCEPT met 88: 3:38 LEYS SRCTSCSVEC MARS aad (1) v04~ 
4 138 ; ~SBTTL SCSSACCEPT 
D 438 : 
3 : FUNCTIONAL DESCRIPTION: 
D : 
4 ; CALLING SEQUENCE: 
p 4 : BSBW  SCSSACCEPT 
p : : INPUTS: 
D 8 : R3 = Address of Ulovening CDT 
D6 ; QO(SP) = apes 8 addre MSGADR 
D 10 ; 4(SP) = pategran input address] DGADR 
D 11 3 8430} = Error addre ERRADR 
D \§ : 12(SP) = Initial credit value INITCR 
D6 13 3 14(SP) = Minimum send credit value MINSCR 
D6 14; 18 toe} = baierat DG credit value INITDG 
D6 18 ; 18(SP) = (Block transfer priority] BLKPRI 
D6 16 $ O(SP) = Address of connect data CONDAT 
D6 V7 3 4(SP) = Address of auxilary structure AUXSTR 
0206 218 3 oi3e} = (Bad response packet address) BADRSP 
8 oe 233 : (SP) = Return address 
0 D6 521 : OUTPUTS: 
8 D6 H : : RO = Status 
D6 «524 ; Re = Address of Listening CDT 
0206 $3 R3 = Address of CDT allocated 
D6 § 3 R4 = Address of PDT for Listening 
D6 3 R1,R2 Destroyed 
0206 8 3 RS Preserved 
0 be 880: 
D6 a 
02D6 ¢ SCSSACCEPT: 
52 53 00 02D6 MOVL R3, R2 : Transfer Listen CDT ptr 
18 19 D9 4 BSBB SCSSALLOC_cDT Allocate a CDT 
7150 «2 dB 5 BLBC RO, 10$ * None, clean up and leave 
DE 5 ASSUME CDTSL_MSGINPUT+4 EQ corst_ GINPUT 
63 BF 7D Bf MOvVa (SP)+,COTSL prs iwu PUT(R3); Get ie MSGINPUT and DGINPUT 
Oc A3 8EDO E 3 POPL CDOT$L_ERRADDR(R3) ; Set address of error routine 
54 10 A2 pe 3 MOVL core TC(R2), R4 : ick up PDT addr tren Listen 
51 0c A E 40 MOVZBL #POTSC_ACCEPT, R1 Offset in PDT t 
0266 31 45 *] Rw POT_JM : Finish in port y A code 
5E 20 0 EF 2g 10$: ADDL #824, SP ; Clean args off stack 
Fe 44 RSB 
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FUNCTIONAL DESCRIPTION: 
Attempt to remove a CDT from the free List. If no more 
are available, and the CDL has room for an extension CDT, 
then allocate one CDOT from pool. Put new CDT address in CDT, 
step current maximum index in CDL header, init CDT to closed 
state, and give it a local connection ID. 


In allocated COT, init wait queues, zero most of the rest of 
the COT, and return to caller. 


CALLING SEQUENCE: 

BSBW SCSSALLOC_CDT 
INPUTS: 

NONE 
OUTPUTS: 


RO S$_NORMAL if success 


388 J NSFCOT if no CDT's available 


Pointer to CDT if successful 
= 0 otherwize 
R2,R4,R5 preserved 
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SCSS$ALLOC_CDT: 
51 00000000'9F oD MOVL @#SCS$GL_CDL, R1 3; Pick up pointer to List 
53 F4 Al OD MOVL  CDLSL_FREECDT(R1), R3 =: Find first free one 
42 1 BNEQ 20$ ; Branch if got one 
51 OOAO 8F 3C MOVZWL ean TOC LENGTH BT 3; Get size of a CDT 
2 Bp PUSHL R :; Save caller's register 
05 BSBW scs pL OuOnPaceD 3; Allocate one from pool 
53 D MOVL R2,R : copy assumed new CDT addr 
8ED POPL R 3; Restore caller's R 
5D E BLBC RO,NO_COT ; Branch if didn't get CDT from pool 
08 AS) sé51 Hi MOVW R cCOTSY SIZE(R3) 3; Set CDT size, 
8 MOVW #DYNSC_SCS!- ; structure type, 
<DYNSC_SCS cyTee>.- 3 and subtype 
OA AS 0260 8F COT$B_TYPETR } 3 
AS D4 CLAL COTSW_STATE(R3) ; Set CDT state = closed 
51 00009 ‘OF 6D MOVL OF5C558 COL, ; Get start of CDT List 
61 OD MOVL (R1),R 3; Get ist CDT address 
50 18A0 OD MOVL COTSL_LCONID(RO) ,RO : Get ist CDT's local CONID 
; in order to feptuce its sequence # 
4 Al INCW CPL Be RANCOMEDE (RI) : step max legal CONID index in COL 
5 FO Al 8B Vi COLSW cmattU o 3; Combine seg # and index 
18 A Mi R eCOTSL_LCONIDCR ) 3; _= new CDT"s connection ID 
5 ‘ MOVZWL RO,R ; Isolate index 
614 1) VL R5,(R1) CROJ ; Save new CDT addr in CDL 
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$62 +000 SCSSALLOC. CDT §7 SE 1 38 90:13:38 LEYS SRCISESVEC MARS 1 . (1) vou 
06 «+12 ; 3 BRB 30$ ; Join common CDOT init 
FE Al 63 00 034 g 20$:  § MOVL COTSL_LINK(R3) - 
é $ COLSL~FREECDT(A1) ; Set pointer to next free CDT 
f ge 4 g 30$: PUSHR #*M<R2,R3,R4,R5> 3; Save registers for MOVC 
00 00 BF C $348 6 MOVCS #0,#0,40,- : Zero CDT from Longwd after 
084 f 4D 61 a<CoTgc LENGTH-CDTSL_LCONID=4>,~ 
1c : 61 core. LEQUID SS (R ) ; _local CONID to end 
BA 16 POPR #°M<RZ,R3,R4 Re ; Restore destroyed registers 
51 18 fh 0 61 MOVL CDT L_CCONID(R R1 3; Get conid for return to caller 
30 A330 A E 614 MOVAB CDT LIWALTOEL CR §, - 
Dd 1 COTSL_WAITQFL(R3S) ; Set up initial cond 
34 AS 30 A3 GE 618 MOVAB CDTSL_WAITQFL(R3), - 
6 1 COTSL_WAITQBL(R3) ; Set up initial cond 
38 A306 338 ASOSE 6 018 MOVAB CDTSL_CRWAITQFL(R3), - 
; 6 61 CDTSL_CRWAITQFL(R3) ; Set up initial cond 
3c A3 38 A3 FE 6 620 MOVAB COTSL_CRWAITQFL(R3), - 
6C 621 BPS, A CRUAL TOR. CR ) ; Set up initial cond 
50 01 0 6c 6 § MOVL #1,R 3; Set success 
0 of ? z RSB 
70 625 NO_CDT: 
50 21AC BF 3C 7 6 § MOVZWL #SS$_INSFCDT,RO ; Set error status 
05 7 6 RSB ; and return to caller 
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FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBW SCSSALLOC_RSPID 
INPUTS: 
R5 = Pointer to context block (usually CDRP) 
OUTPUTS: 
R1 = RSPID 
RO,aScRs' preserved 
RSPID stored in CDRP (* What if not a CDRP input??? *) 
SIDE EFFECTS: 


If no RSPID available, process is put on wait queue, and control 
returned to caller's caller. 
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SCSSALLOC_RSPID: 
51 00000000 ' 9F 1) MOVL @#SCS$GL_RDT, R1 3; Pick up List head 
52 F4 Al OD MOVL  RDISL_FREERD(R1), R2 ; Find first free one 
1F 1 BEQL 10$ 3; None available 
F4 Al 62 D MOVL 4409 LINK(R2), - 
RDTSC_FREERD(R1) ; Update free List 
Be ¢ 664 SUBL3 R11, R2, RI ; Form offset 
5151 665 ASHL =«._s«a#18, R41, RI : Turn into slot number 
51 06 Ag f 66 MOVW RDSU_SEGNUM(R2) , R1 : Insert sequence number 
1 51 9 66 ROTL #16, Ri, R1 3; Reverse to correct order 
20 AS : 0 9 068 MOVL Ri, CDRPSL_RSPID(RS) 3; Store in contex block 
62 5 0D 98 96 MOVL R5, RDSL_CBRP(R2) : Fill in context block addr 
04 A2 BG i « INCW  RD$SW_STATE(R2) ; Set state to IN-USE 
r 67 RSB 
10 AS) 53 7D as ef 10$: MOva R3, CORPSL_FR3(R5) : Save R3,.R4 in context block 
0 3 BEDO O3A 74 POPL  CDRPSL_FPCTRS) t eee and PC 
EC B16 OE AA 675 INSQUE CDORPSL_FQFL(R5), - : Insert this context block 
AE 676 @RDTSL “WAI TBL (RI) ; on RDT wait queue 
50 28 AS 00 A 7 MOVL DRPSL_RWCPTR(RS), RO ; Pick up any counter 
0 1 or8 BEQL OS 3 None 
6 4 67 INCW RO) ; Bump the number of resources 
6 680 20$: $B 3; Return to caller's caller 
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: FUNCTIONAL DESCRIPTION: 


CONFIG_PTH searches the pete blocks on all system 
blocks’ for on ab. 7% matching station address and local 
ort name. 5 soune d, then error is returned in 
Otherw ce, ‘nest ett the path block information 
is returned in the caller's pyceut orray plus the system 
ID of the remote system on this path and the station 
address of the next path to this remote system. If 
ings I are no more paths, the remote station ID returned 


A fork process interested in issues s. COnFIG ise to a 
pide ar ation agg irst issues YS + to 
earn the station oger{ veces port name of path 
to the aly “tae! he fork process then Rus “ON IG? PTH 
repeatedly until a next station address of <-1 “is 
returned 


CALLING SEQUENCE: 
BSBW CONF IG_PTH 
INPUTS: 
R1 = Address of station address followed by local port name: 
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R2 = Address of output buffer to return path information 
0 if no output desired 


OUTPUTS: 
RO $5$ NOS greene if failure to find specified path 


= sfagress “st “path block found (if RO = success) 
d.R3 R4,R5 preserved 


Path block and output array adjacency assumptions: 


SOOCOOCOOOOCoOooO 
Sow 


ASSUME pete “Bitten OE ce PBSW_STATE 
rt tet PBSW_STATE+ BSCE RPORT TYP 
ASSUME PBSL_RPORT_TYP+4 co PBSL_RPORT_REV 
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$62 +000 SCSSCONFIG. PTH g7 $= 1382 80:13:38 SYS.SRCISCSVEC.MAR;1 ° (9 vou 
8 i ASSUME PBSL_RPORT_REV+4 Fe post AeORT FCN 
B reer PBSL_RPORT FCN+4 EQ PBS$B_RST_PORT 
41 ASSUME PBSB_RST_PORT+1 EQ PBSB_RSTATE 
B 42 ASSUME PBSB_RSTATE+1 EQ PBSW_RETRY 
B 45 ASSUME PBSW_RETRY+2 EQ PBST_LPORT_NAME 
B 44 ASSUME PBST_LPORT_NAME+4 EQ PBS$B-CBL_STS 
45 ASSUME PB B.CBL STS+1 EQ PBS$B_PO_STS 
; 2 ASSUME PB$B_PO_STS+1 EQ PBSB_P1_STS 
48 ASSUME Pe Ose STATIONS EQ PBOSW_STATE 
B7 49 ASSUME PBOSW_STATE+ EQ PBOSL_RPORT_TYP 
f ASSUME PBOSL_RPORT_TYP+4 Fe PBOSL_RPORT_REV 
ASSUME PBOSL-RPORT-REV+4 EQ PBOSL-RPORT-FCN 
87 ASSUME PBOSL_RPORT_FCN+4 EQ PBOSB_RST_PORT 
B7 ASSUME PBOSB_RST_PORT+1 EQ PBO$B_RSTATE 
B7 4 ASSUME PBOSB_RSTATE+1 EQ PBOSW_RETRY 
B7 5 ASSUME PBOSW_RETRY+2 EQ PBOST_LPORT_NAME 
B7 § ASSUME PBOST_LPORT_NAME+4 EQ art eS sTs 
B7 ASSUME rt7 Wt STS+1 EQ 0$8-P0_STS 
7 ASSUME PBOSB_P _STS+1 EQ PBO$B_P1_STS 
? 759 ASSUME PBO$B_P1-STS+2 EQ PBOSB_N T_RSTAT 
B? 760 ASSUME PBOSB"NXT_RSTAT+8 EQ PBOST-NXT-LPORT 
4 6] ASSUME PBOST_NXT_LPORT+4 EQ PBOSB_SYSTEMID 
B7 768 SCSSCONFIG PTH: 
1C 6B 7 64 PUSHR #*M<R2,R3,R4> ; Save registers and output buf. ptr. 
50 Q0000000'°9F DE 0O 765 MOVAL a#SCS$GQ_CONFIG, RO 3; Pick up pointer to database 
5 50 OD C £68 MOVL R 2 ; Hold starting point 
3 60 »D C3 767 108 MOVL (RO), RO : Get next block in List 
2 50 01 C6 168 CMPL = RO, -R2 ; Back where we started (empty) ? 
ee 3 £68 BEQL 50$ 3; Yes, leave now 
cs 44 ; Got a system block, now search for a path block 
53 OCA ) cB og : MOVAL spst PBFL(RO), R3 3; No, have a sys block - find Ist path 
54 (5 dD CF 774 MOVL R3, R4 ; Hold starting point 
53. 63C«O be 775 20$: MOVL (R$), R3 : Get next block in List 
Ya | bt D £06 CMPL = R3,_-RG ; Back where we started (empty) ? 
eE9 «1 D8 77 BEQL 1 3; Yes, try another system 
0c AS «661~—Cs«éO*TT DA ore CMPL (R1), PBSB_RSTATION(R3) ; No, have a pth - check for ID match 
rf is D 7 BNEQ 20$ : No match on first 32 bits, try again 
10 a3 04 A1 8B EO 780 CMPW = & (R11), PBSB_RSTATION#4(R3) ; Check high order 
ce ie E 781 BNEQ ; No match on next 16 bits. try again 
24 A308 Al p} 7 : CMPL (R1), PBST_LPORT_NAME(RS) ; Check local port name 
£4 2 4 ? BNEQ 0$ ; Branch if no match, try again 
EE 5 : Found a path block whose virtual circuit matches - return the info. 
52 es E ; : MOVL {5P) Re 3; Recover addr to store info 
Bo F 8 BEQL 40$ ; None, done store anything 
51 OC A3 E F MOVAL PBSB_RSTATION(R3), R1 3; R1 covers info in 
1 D F 0 MOVa (R1)F, (R2)+ :; Transfer 8 bytes (RSTATION) 
1 D FA 1 mMOVa (R1)+, (R2)+ ; Transfer 8 bytes (port type/rev) 
:. F mova (R1)+, (R2)+ ; Transfer 8 bytes pert fen/state,retries) 
1 7D 04 mova  (R1), “(R2)+ : Transfer 8 bytes (LPORT name/cable sts) 
1 CE 04 4 MNEGL #1, (Rg)s : Set reserved address to 
1 CE 04 MNEGL #1, (R2)+ 3; to indicate no next path. 
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562 ¢800 ScebeONF 1G PTH Ly g7 b= 1387 §9:) 3:38 YEYS. SRCIJSCSVEC.MAR; 1 ° (1) v04- 
¢ D4 0409 38 CLRL n3¢ : Zero out next local port name 
2} D 408 MOVL (R5), R1 ; Get next path block 
4 i 4 38 CPL 8 { RG ; Is there a next? 
F4 A2 OC AI D 041 MOVa P $B_RSTATION(R1), ~12(R3) : Yes, transfer its station address 
FA Ae B4 041 CLRW (R2) Clear out reserved field 
FC a2 24 A b0 4 8 : MOVL § PBST_LPORT_NAME(R1) m4 he} 3 and transfer its local port name 
BA D 04 30$: mova SBS “SYSTEMID(RO), (R2) ; Transfer associated aystem I 
06 A B4 0424 4 CLRW 6(R2T : Clear out reserved f 
50 8 D 427 5 40$: MOVL #1, RO 3; Set for success 
$ 661i 666 A é BRB 60§ : Clean up 
50 §6028C¢ 5 acne . f 8 288 poyeul. paste RO : ges tee f ilure 
24 Q bp? 434 10 MOVL R3, R1 : Transfer gee? block pointer 
3 BE 7D 0437 811 MOVG = (SP)+, R3 : Restore R3,R4 
05 043A 12 RSB 3; Leave 
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FUNCTIONAL DESCRIPTION: 


CONFIG_SYS searches the List of System Blocks until it 
finds one with a system ID matching the specified ID. 
If no match is found, error is returned. Otherwise 
most of the SB is returned to the caller together with 
the ID of the next system in the List. 


A tork process interested in finding out about all the 
systems in the configuration simply issues successive 
CONFIG_SYS calls on the next system ID until the 
returned next system ID = 0. To get information about 
the first system, specify systen Dof 0. There is a 
possibility that the configuration will change between 
calls unless the entire configuration scan is conducted 
at SCS IPL or higher. 


CALLING SEQUENCE: 
BSBW CONF IG_SYS 
INPUTS: 
R1 = Address of system id to search for 


R2 = Address of output buffer to return system information 
if none desired 


besTosdesTestesToslesTostestesTeslesTeslestoslestes]es]e+]s + a) 


Ctcp top tot tot 
BoOwwoowwownwaw 


SS$_NOSUCHNODE if system id not found 
nesress of system block found (if RO = success) 
oR4,R5 Preserved 


Wd" MAXMSG+ 


+ 
B"HWVERS+1 
T~NODENAME +16 


SANE IIS OO NAN EW  O OD NAN E WWI  O ODNAUE WN OC ODNOAUES WIN" OOONOUS 
> 


SBOSW_MAXDG 
SBOSW~MAXMSG 
SBO$T~SWTYPE 
SBO$T~SWVERS 
SBO$Q” SWINCARN 
SBO$T-HWTYPE 
SBOSB-HWVERS 
SBO$T ~NODENAME 
SBOSB-RSTATION1 


“MAXMSG+ 
SuTYPES 


PRR RRR PRP P PPR P PPP PPR PER PPP PR PR PRP PP PRP PPP PPP PPP PPP PPP PP PPE 
+s] 
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So 
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Bw 
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am 
mPw +z 
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y+ So ~ 
+ 
oo 
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RS+12 
NODENAME +16 


secs 


SAA AAOAAOAC 


AS 
5 ASSUME 
ASSUME 
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Se pteh = System Commu r 
v04-000 SCSSCONFIG. SYS SEP- SYS.SRCIJSCSVEC.MAR;1 (1) Vv 
438 71 ASSUME SBO PRSTATIONT +6 EQ SBOST_LPORTI 
? 4 ASSUME SBOST_LPORT1+4 EQ SBO$B_AXT_SYSID 
0000003¢ ? 4 oe SB_COPY_LEN = SBST_NODENAME+16 = SBSB_SYSTEMID 
438 6 SCSSCONFIG_SYS: 
oc BB 0438 7 PUSHR cecee R3> ; Save reg. and output buffer ptr. 
50 00000000'9F DE 0430 £8 MOVAL a#SCS$GQ_CONFIG, RO : Pick up pointer to database 
28 Dd 444 7 MOVL RO 3; Hold starting po 
D0 0447 0 10$: mov. (RO), RO : Get next block in List 
52 0 oO 44A 1 CMPL Re R2 ; Back where we started (empty) ? 
D 13 044d : BEAL ©=-_-«46 0$ : Yes, leave now 
61 O 44F TSTL (R1) 3; Is this possibly the magic 0 value? 
oS } 4 } 4 BNEQ 20$ 3 No, continue 
04 Ai 8B 4 5 TSTW 4(R1) : Yes, ry the high 16 bits 
= eS 4 $ § BEQL 30$ ; Yes, it is 0 - just get the first one 
18 AO 3661) «=6Dt 045 208: CMPL (R1), SBSB_SYSTEMID(RO) ; Nonzero value - check for a match 
E9 12 045C 8 BNEQ 10$ ; No match - try again 
1¢C AO 04 Al Bl re 9 CMPW 4(R1), SB$B_SYSTEMID+4 (RO) ; Lo 32 bits match - try high 16 bit 
E2 12 rt $ BNEQ 10$ 3; No match = try again 
Be8e 3 3; Found a matching system block = transfer the information 
53 E 0 465 94 $0s: MOVL (SP),R3 3; Recover pointer to output array 
A 1 468 95 BEQL 3 None, don't bother to transfer 
5 ee 46A 38 PUSHR #*M<RO,R2,R4,R5> ; Save registers geattared in MOVC 
> -- 46C 9 MOVCS #SB_COPY_LEN,- 3 Copy data from SYSTEMID in SB 
63 18 a re 98 SB$B_SYSTEMIO(RO),(R3) : ¢ rough nodename to output array 
3 BA 04 99 OPR #°M<RO,R2,R4,R5> 3; Restore registers 
83 01 CE 0473 900 MNEGL #1,(R35+ ; Set Ist station addr to -1 
83 01 CE 0476 901 MNEGL #1,(R3)+ ; _in case there is no path on SB 
83 D4 0479 Ong CLRL (R5)+ ; Zero local port name of first path 
51 OC A 00 478 90 MOVL SBSL_PBFL(RO), R1 3; Get Ist path block 
1 1 47F 904 BEQL 40$ 3; None there 
61 5 D1 0481 905 CMPL Ri, (R1) : Is there really one? 
OD 13 0484 906 BEQL © 408 : No, skip on 
F4 AS OC Al «67D «(0486 )=—(907 MOVG PBS$B_RSTATION(R1), -12(R3) ; Yes, move in station id 
AAS B4 04 908 CLRW -6(R3) : Clear out reserved word 
FC AS 24 Al po 4 909 MOVL PBS$T_LPORT_NAME(R1),-4(R3) ; Move in local port name 
63 C 04 910 40$: CLRQ (R3) 3 Clear out next system id 
51 60 D0 049 911 MOVL SBSL_FLINK(RO), R1 ; Get next system block 
52 51 Di 0498 91 CMPL Ri, R2 : Is there really one? 
07 +13 0498 91 BEQL 46-50 : No, skip on 
63 118A 7D 0490 14 mova 7658 SYSTEMID(R1), (R3) ; Yes, move in system id 
06 A B4 O04A1 15 CLRW (R3) ; Clear out reserved word 
1 D 4A4 318 50$: MOVL RO, R1 3; Recover system block address 
0 i 4A7 1 MOVL #1, RO 3; Set success 
5 11 4A 313 BRB 70$ 
F GA $: MOVZWL #SS$_NOSUCHNODE, RO ; Set failure 
od 9g8c H 7 ry $31 oo: nove (SP)F, Re 3; Clean stack 
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v04-000 SCSSCONNECT g- ee 188 90:13:38 SYS.SRCISCSVEC.MAR;1 ’ (1) 
48 : ~SBTTL SCSS$CONNECT 
rh p++ 
4B ‘ $ FUNCTIONAL DESCRIPTION: 
tes 859 | 
4B 3 CALLING SEQUENCE: 
4B ; BSBW  SCSS$CONNECT 
48 4 + INPUTS: 
48 : : O(SP) = Input address MSGADR 
48 3 : 4(SP) = [Datagram input address] DGADR 
48 8 3 HES = Error address ERRADR 
48 939 ; 12(SP) = Address of remote system ID RSYSID 
48 940 ; at = CAddress of remote station addr] RSTADR 
48 ae) : (SP) = Address of remote process name RPRNAM 
48 4g 3 4(SP) = Address of local process name LPRNAM 
48 9435; 8(SP) = Initial credit value INITCR 
48 944 ; O(SP) = Minimum send credit value MINSCR 
0485 945 ; 2(SP) = CInitial datagram credit value) INITOG 
beee 228 : 4(SP) = [Block transfer priority BLKPRI 
rt} 947 ; 6(SP) = [Address of connect data CONDAT 
Ree 948 ; 40(SP) = [Address of auxilary structure] AUXSTR 
485 949; 44(S?) = (Bad response packet address] BADRSP 
O¢es ge0 : 48(S+) = Return address 
4B) 93¢ > OUTPUTS: 
OcBs 954 ;: RO = Status 
48 955 ; R3 = Address of CDT allocated if success 
485 228 5 = 0 if error status 
48 957 ; R4 = Address of PDT for this station address 
48 228 ; R1,R2 Destroyed 
rt] +44 : RS Preserved 
485 961: CDT fields filled in 
48 306 3 
is gea 
48 aes ENABLE sb 
48 06 SCSSCONNECT: 
Fee Mi 48 ° BSBW BESSALLOC_COT 3; Allocate a CDT 
03 48 8 BLBS e 5 3 Oka 
OOAF 631 «0488 $ BRW 146$ + None, clean up and leave 
4BE 970 ASSUME CDTSL_MSGINPUT+4 EQ CDTSL_DGINPUT 
63 ef 7D rts] 71 5$: MOVaQ (SP)+,CDT$L_MSGINPUT(R3); Get both MSGINPUT and DGINPUT 
OC AS 8EDO rt; ys POPL CDTSL_ERRADBR(R3) 3; Set address of error routine 
tee 74; Check if remote station/local port specified. If so, go connect over 
rh3 e? 3 «that ve. 
04 AE DS 04C 3 . TSTL 4(SP) ; RSTADR specified? 
468 12 rth 4 BNEQ 70 3; Branch if so 
4CA 980 : Now obtain the remote system id and use it to search the system 
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SCSSCONNECT mT ee ET eS eater hte . 
4CA 1; blocks for the correct one. If found, return the PDT for the next 
rh} § ; path block and update that field. 
51 BEDO O4CA 4 POPL R1 ; Pick up addr of rem pysten id 
¢ Be 4CD 4 5 CLRL R2 ; Don't want any info block 
FF6 Q OQ4CF § BSBW shSSCOUFIG_SYS ; Get the pointer to system block 
04 50 3 4D 3 BLBS RO, 10$ ; Found it, continue 
3 D 4D 8 TSTL (SP) + ; Get rid of rem station addr 
5 11 rid 9 3 BRB 90$ ; Clean up stack and leave 
1b3 $31 ; From the system block pick up the path block. 
8E D5 beb9 338 10S: TSTL (SP)+ ; Remove RSTADR parameter 
54 14 Al 0 0408 994 MOVL BEL PRCOMIXCRT) , R4 3; Get the next path block to use 
15 13 O4DF 995 BEQL $ 3; Branch if no PB's available 
50 OC Al DF 04E1 996 MOVAL SBSL_PBFL(R1), RO ; Hold path block List head 
52. 54 DO O4E5 997 MOVL R ; Save original pointer 
03° 1204 BI O4e8 998 208: CMPW PBSW_STATE(R4) ,#PBSC_OPEN ; Is it good? 
16 13 Q4EC 99 BEQL 50$ ; Yes 
54 64 00 Bees 1000 30$: MOVL PBSL_FLINK(R4), R4 3; No, try next block 
52. «54 ~=6—D1sCOO4F1) = 1001 CMPL R4, R2 ; Back to start? 
07 {é O4F4 1 8 BNEQ 40 ; No, try another 
50 2094 8F C O4F6 1003 35$ MOVZWL #SSS$_UNREACHABLE, RO 3; Yes, no good path 
a Reee See BRB 90$ : Error ou 
50 54 D1 OQ4FD 1006 40$: CMPL R4, RO 3; Is it List head? (system block) 
EC 13 0500 1007 BEQL 30$ : Yes, get another block 
E411 bane 1908 &RB 20$ 3; No, try i 
52 64 dO 0504 1010 50$: MOVL PBSL_FLINK(R4), R2 3; Try to find the next next block 
50 6 D1 0507 1011 CMPL R2, RO ; Is it list head? 
0 is SOA 1916 BNEQ 6 ; No, use it 
52 6 D 50c 101 MOVL PBSL_FLINK(R2), R2 : Yes, get the first in List 
14 Al 5 DO OSOF 1014 60$: MOVL Re SBS$L_PBCONNX(R1) ; Update next path block entry 
23.11 313 1015 BRB 106s 
515 1017 ; Remote station/local port specified, get the exact path. Check to see 
é 1318 3; that it is open. 
8E 05 0515 16 0 70S: TSTL (SP)+ ; Clear remote system ID porepetes 
51 8EDO 0517 1021 POPL R1 3; Get addr of remote sta/local port 
4 Be OS1A 10 § CLRL Re : No info to move 
FE9 0 5ic 1 BSBW SCSSCONFIG_PTH 3; Find it 
54 2 4 2 F 1024 MOVL R1, R4 ; Transfer to correct register 
98 0 =6€ g 1025 BLBC RO, 90$ ; Error, leave 
03 12 a6 Bi 0525 1 6 80$: CMPW PBSu_STATE(R4) , APBSC_OPEN ; Is it good? 
D 13 0529 1 BEQL 100 ; Yes 
50 2094 8F $5 5 1 8 MOVZWL #SS$_UNREACHABLE, RO ; No, no good path 
0076 5 1 90$: BSBW SCSSBEALL_CDT1 ; Bad id, get rid of the CDT 
5E 9 cO 05 1030 ADDL #<2e4>, SP ; Get rid of process names 
11. 05 ; ! 1 BRB 15 ; Leave 
20 AS =60C AS OCOD j 1 § 100$: MOVL pase RSTATION(R4), = F Rove in 32 bits of Remote Sta Id 
53D 1034 CDT$B_RSTATION(R3S : nto the cot 
24 AS 10 A4 = =6B0.sC*F*0 1035 MOVW rete RSTATION+4(R4), = 3; Another 16 bits 
34 1 6 COT$B RSTATIONSG (R35 
1c Ad 554~—S—s«=i 42 1 MOVL R4, COTSL_PB(R3) ; Store the pointer to Path Block 
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v04-000 SCSSCONNECT g- ee 188 88: 3:38 Heys. SRCISCSVEC. MAR; 1 ° ih vee 
54 2C Ad OD 46 1 MOVL pest PDT(R4) ; Recover PDT entr 
10 A3 54 bo SA 1 ; BOVE coTst apt «RD : Store the PDT ’ 
51 18 9A F 104 MOVZBL PH 61 ANECT, R1 Offset in PDT to jump to 
104 ASSUME CDTS$L_RPROCNAM*4 EQ C corst _LPROCNAM 
50 AS. BECO ! r MOVa (SP) +; CDTSL_RPROCNAM( RSS Get both local & remote process names 
: } rf: 3 Now take care of the credit fields 
1 2s SSUME COTSW_MINSEND EQ 1 Me INITLREC+#2 
555 104 ASSUME COTSW_DGREC EQ CDTSW_MINSEND+ 
55 104 ASSUME CDTSB_PRIORITY EQ coTSy gyPGREC Ke 
48 A3 a 7D a2 1049 PDT_JMP:MOVQ (SP)+,CDOT$W JRLTLREC CR Pick up initial rec, min send, dgrec.pro 
58 a 59 105 OPL CDTSL_CONDAT(R3) ; Transfer connection data 
os 55D 105 BNEQ 110$ Something there 
58 AS «674°AF 9E OSSF 105 OVAB B*BLANK,CDTSL CONDAT(R3): HE sgive em blanks 
564 105 ASSUME COTSL_AUXSTRUT+4 EQ CDT$L_BAD 
5C AS 0S BE)=Osso7D:SCsé«éO S64) «=s-«1054 1108: MmOova (SP)+,CDTSL -AUXSTRUC(R3) 5 ~ Baek up aux struc addr & bad resp addr 
51 54 C0 beee 1055 ADDL2 R4,R1 ; Pick up address from PDT 
91 +17 4 1928 JMP acRi)+ 3; Finish in port dependent code 
ss TY & 0860 1058 140$: ADDL #7*4, SP ; Clean args off stack 
aoe: oo 209 1059 150$: ADDL #54, SP 
05 0573 1060 RSB 
0574 1061 
20 20 20 20 20 20 20 20 20 $8 20 30 0574 1062 BLANK: .ASCII/ / 
20 20 20 20 0580 
0584 1063 -DISABLE Lsb 
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~-SBTTL SCSSDEALL_CDT 
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FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBW SCSSDEALL_CDT 


tem 
EALL_CD 
¢ 188 
4 1 ; 3 
~ \oe9 : 
a 18 
28¢ 1002 | 
584 1 og 3 
584 1074; 
5 ; | ¢? 3; INPUTS: 
3 4 1 8 : R3 = Pointer to CDT 
584 1 4 ; 
584 1079 ; OUTPUTS: 
584 1 + 3 
584 1081 ; Ri trashed 
584 1 Hf 3 R3 cleared 
584 1085 ; RO,R2,R4,R5 preserved 
584 198 ; 
584 1085 ; COMPLETION CODES: 
ae 108? NONE (al an 
3 always succedes 
at 1088 ; r 
0584 1089 ;-- 
0584 1090 
0584 1 4 SCSSDEALL CDT: 3 Unlink from PB first 
5¢ DD O38 10 § POSHL R2 ; Save a register 
51 1C A DO 0586 109 MOVL COTSL_PB(R3), R1 ; Pick up Path block 
in Fi ea. Bege 1938 MOVAL PBSL CDTILST-CDTS$L_CDTLST(R1), R1 ; Point to head of List 
52 6C Al OD 5 3 1095 10$: MOVL DISC_CDTLST(R1), R2 ; Get next block 
1 1 59 1938 BEQL 0$ :; There is none 
is 3 D1 0594 109 CMPL Re R3 3; Are we next block? 
: 13 597 1098 BEQL «6-208 : Yes 
51 3 D 599 1099 MOVL Re R1 3; No, shift pointer 
FO. 11 39¢ 1100 BRB 10$ : And try again 
6C Al 6C A300 59 1158 20$: MOVL CDTSL_CDTLST(R3), - 
5A 115 CDTSL_CDTLST(R1) ; Put our next Link in Last block 
6C AS D4 Q5A3 1104 CLRL CDTSL_CDTLST(R3) ; Clear out Link 
52 8ED0 2h8 \ 5 30$: POPL Re ; Restore a register 
5A9 11 § SCSSDEALL_CDT1: :; Deallocate w/o unlinking 
51 09900000 "9 4 ty 11 MOVL @#SCS$GL_CDL, R1 ; Pick up List head 
63 FAI OD BO 11 MOVL COLSL_FREECDT (RI), - 
5B4 111 epi st, bee ) ; Insert in chain 
F4 Al 3 DO 0584 111 MOVL R3, CBL$L FREE CBT CRT) : Set this block as first free 
1A A 56 588 Wi¢ 10$: INCW ED ISL _LCORID* (R3) ; Bump sequence number 
1 5BB 111 BEQL 10$ ; Zero not allowed 
5BD 1114 ASSUME CDTS$W_STATE+2 EQ CDT$W_BLKSTA 
28 4 D4 SBD 1115 CLRL ey YOU Stare (aS) 3; Set to CLOSED 
5 t: 2f 1118 puat R : Eliminate any chance of spurious CDT 


SCSLOA - Sys Communications Service tedeed 16-SEP- AX/VMS Macro v04-00 Pp 4 SCSL 
vour000 SC8$D JR - Dellocate a response ’ g: -SEP=1 1884 88: 13 3 SYS.SRCISCS SVEC. MAR; 1 ness ey V04- 
~SBTTL SCSSDEALL_RSPID - Dellocate a respenee id 
-SBTTL SCSSRECYL_RSPID - Recycle a response id 


PID = Dellocate a response id 
PID = Recycle a response id 


nw 
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mm 
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rr 
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ienaiiinasd description: 


Check validity of the value in the CDRPSL_RSPID field. Increment 
the RDTE sequence number. 


For deallocate a response id (SCSSDEALL_RSPID): 
Dequeue next waiter for an RDTE and start him up. If n 
waiter to dequeue, set the RDTE state to unallocated, Tink 
RDTE as first entry in the free list, and return 
For recycle a response id (SCSSRECYL_RSPID): 
Update response id in CDRP and return. 


Calling sequence: 


BSBW SCSSDEALL_RSPID 
BSBW SCSSRECYL_RSPID 
Inputs: 
RS ==> CORP 
SCSS$GL_RDT 
Outputs: 
RO,R1,R2 Destroyed; Re R4,R5 Preserved -- SCSSDEALL_RSPID 
RO,R1. Destroyed; R2.R3.R4.R5 Preserved -- SCSSRECYL_RSPID 
SCSSRECYL_RSPID: 
7E D4 CCRL -(SP) ; Put SCSSRECYL_RSPID flag on stack. 
SCSSDEALL_RSPID: 
55 oD PUSHL R5 ; Save CDRP address. 
55 20 AS D MOVL EQGPSL_RSPIDIRS), R5 3 Get RSPID (if any). 
4A 1 BEQL 0 3; No RSPID, then Le check 
org 3 BSBW SCSSFIND_RDTE : Locate ROTE for the RSPID. 
44 Q ia BLBC RO, 90$ :; Branch if ocrer in RSPID. 
50 § dO MOVL R5, R : Save RDTE address. 
06 AO : 5$: INCW RD$W_SEQNUM(RO) : Bump RDTE sequence | number 
FB BEQL 5$ ; Zero neve Sesser allowed. 
04 AE OD TSTL 4(SP) 3; Was this a SCSSR Pet RSPID call? 
38 i BEQL 50 ; Branch if recycling & response id. 
55 €8 et F REMQUE @RDTSL_WAITFL(R1), RS ; Grab ony process waiting on RSPIDs. 
1D BVS 10$ :; Branch if no processes waiting. 
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TAAL TAL AD A Ab Ab AL Ab Ab Ab Ab Ab db db db db db Ab dh db db db db Ab db db Ab db ah ab ab ab ab ab ab ah ab al ab ab ab ab ab ah Ab ab Ab ah Ab ab db ab ah ah ste ok J 
MMM SS SFOS IVAHAAANAOOAOAQAOANAAOHOANAAHQAAAAAAAAOAAAAAAAAAOOAAAOAAAOOAOOO CF. 
em ek a a a SS 3 ss st se wm 
a a ak a a a a 8 a dw = 2 a a +s ss 2) 4s _ bs 9 4 9 2 5 4) 2 ts wv 
SNP PPD DPD PAA DAD TTI EB BS BS BY BB IAAI III NII POPPIN —— 
PAI OOD NA NE SO OD NA MEW O OD NA UE WIN O OD NAME WN OUOOVNAOUS WN "00 OF 
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vO2+000 SCSSRECYL_RSPID - Recycle a response 7 3p] 382 $9: 13:38 ESys. SRCISCSVEC.MAR; 1 ’ (1) 
: 1} ; There is a stalled process waiting for a RSPID, resume it. 
F 3 7 E6 11 OV R3, as ; Save context registers. 
> , og E9 11 SUBL3. R Re : Get RDTE offset from RDT base. 
+ 11 ASSUME RD Pk ue NGTH EQ 8 
52.. 52. = =OD ie dD 11 ASHL £ ; Form index in high order R2. 
52. 06 A 2 Fl 11 MOVW  RDSW_S SEGNUARO) . Insert sequence umber 
20 AS 52 1 C O5F5 11 ROTL «@# CDRPSL "ASPID(RSS Form fi nal RSPID and. store in CDRP. 
60 5 6 SFA 1184 MOVL R ‘aD RO) Store his CDRP in the ROTE. 
248 FD 1185 BSBW SCESRESUREUAITR : Resume the waiter 
53 BE D 06 11 § MOVQ ae)? » RS 3; Restore saved registers. 
; Join common completion path. 
0B «si 1 BRB 20$ i i h 
04 AO B4 06 11 § 10$: CLRW aosy STATE (RO) ; Set state as free. 
60 F4 Al DO 0608 1190 MOVL prst FREERD(R1), = 
one 1191 D$L_CINK(RO) ; Insert RDTE in free RDTE chain. 
F4 Al 30 DO 06 1136 MOVL RO. RDTSL. FREERD(R1) ; Make it the first free entry. 
55 B8EDO 061 1193 208: POPL R5 3; Restore CDRP address. 
20 AS D4 61 1194 CLRL CORPSL_RSPID(RS) ; Clear out RSPID 
05 218 1195 RSB 3; Return from SCS$DEALL _RSPID. 
sir 1138 
: n 4 3 ‘'Inva ugcheck. 
aif 1138 90$ BUG_CHECK INVRSPID,FATAL "| Lid RSPID’’ bugcheck 
61B 1200 
$e18 1 a ; Complete SCSSRECYL gels call. 
55 8EDO 0618 1 § 50$: POPL RS 3; Restore CDRP addre 
22 A5 06 A0 BO O61E 120 MOV RD$W_SEQNUM(RO) ; Copy new sequence "punber to 
623 1204 CORPSE “RSP1D+2(R5) : CD 
8E DS 06 1205 TSTL (SP)+ 3; Pop SCSSRECYL RSPID call flag. 
05 0625 1206 RSB ; Return from SCUSSRECYL_RSPID. 
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-SBTTL SCSSDIRECTORY 


VO4-000 


wt 
o 
nm 
om 
ow 


; FUNCTIONAL DESCRIPTION: 


: CALLING SEQUENCE: 
BSBW SCSSDIRECTORY 


NONE 
; SIDE EFFECTS: 
NONE 


CSSDIRECTORY: 
ACCEPT MSGADR=B°30$,- 
ERRADR=W*DIRERR,- If error, disconnect. 
INITCR=#1 We'll accept Saything 


PAAAAAAAAAAOAAOAAASASOASOASOSOASAS We 


908 F999 BNF ODUM FO OWNS MEMS BAA AAAA AA AAAAAA AAPA AAO AAAS OAAS 


SOSDSCDSDDDOCOODSDODOOOCOOOOOOCOCOOOOCOCO HA 
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ee BB ee me a a a a 8 mk wh a a ts a a a a at a nt a ts a = 


LEA DR_D SAPs B Be BB BB EB AAAI WIAA AI AIP PIPUNINNININY 2 2 PO OO OS OOD 


FP 2§ OD ODNA NE 2 OS OD NA NE WIN SO OOD NIA UNE WI § O OD NAN EH OO ONOUES UP" OOD 


01 50 €9 4 BLBC RO,10$ 3; If error, rejec 
05 r RSB 
35S) CUS22CtiéD 4 10$: BONE es R2,R3 ; Copy of Listening CDT address 
05 $B 
51 04 4g 9E 30$: MOVAB 4(R2), R1 ; Pick up procname 
7E 3 7D MOVQ = R2, - (§P) > Save address of message and CDT 
0154 30 BSBW SCS$LOCLOOKUP : Look it up 
62 23 80 MOVW RO, (R2) 3; Set status 
oc 50 9 6 BLBC RO,35$ ; If LBC, unsuccessful lookup 
52 14 Ae E 066 MOVAB <16+4>(R2), R2 : Set to info 
8 1C A 7D 6 MOVQ SDIRSB PROC INF (R1),(R2)+ ; Transfer first 8 bytes 
6 24 Al 7D r$ MOVQ <SDIR$B_PROCINF+8>(R1),(R2) ; ... and sec 
+. s&s HS 35$: MOVZWL #CORPSC_LENGTH, R1 ; Size of block needed 
01BF 7 BSBW  SCS_ALORNONPAGED : Allocate it 
2€ 8 E9 7 BLBC RO,40 3; Branch if no pool available 
33 0 067 MOVL R2, R : Transfer address 
é F D 067 MOVG (SP) + R? > Restore registers 
08 A BS MOVW oR, corp W_CDRPSIZE(RS) : Set up block 
AAS 39 MOVZBW #DYNSC_CDRP, - 
CORP$B_CD_TYPE(RS) 3; Set type 
18 AS 4 CLRL CORPS$L-SAVD_RTN(RS) : Just to be safe 
1c AS” 5 DO VL gOR L_ASG BUF CRS) ; Set address of buffer 
20 AS 4 F CLRL CORP L_RSPID(RS : Indicate we are turning around 
24 a5 5 DO VL gORP COT(RS) ; Set in pointer 
28 ASO 3 CORPS$L_RWCPTR(RS) ; Just to be safe 


; We are going to recycle the buffer 
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yo2r000 SCSSDIRECTORY BrSEem bbe OSiarios Fens tac TeeeOey mages age 4 vor 
51 246 QA 35 1265 MOVZBL #36,R1 ; Maximum size of message 
F 1 : SEND_CNT_MSG_BUF : Send message and term thread 
50 33 0 A2 1 MOVL ; Set pointer to head of block 
019d A SC§_DEALNONPAGD : Get rid of the block 
As 1 3 
: } ; We come here if we could not allocate pool for the CDRP 
52 BE 7D O6A dos: mova  (SP)+,R2 ; Pop stack 
AB 4) DEALLOC_MSG_BUF_REG ; Deallocate message buf 
AE 1 DISCONNECT 
05 ! 6 $B 
685 1 4 3 
2 ! 4 ; Clean up if there is an error while responding to a directory message 
685 1281: On entry: 
6B5 1 § 3 R - error status 
685 1 3 R - address of CDT 
re : : : RG - address of PDT 
685 1 : DIRERR: 
685 1 SCAN_MSGBUF WAIT - 3 Find CDRP'S 
685 1 Hy} ACTION = DIR_CLEANUP 
Bet 1 DISCONNECT ; Break connection 
ei 
6C9 1292 ; 
ae¢s 1 38 ; For each CORP which is found, remove it from queue, if needed, deallocate 
ot} } 3¢ 3; associated message buffer, if any, and return CDRP to pool. 
rae 1 38 : On entry: 
6C9 1297 ; R3 - address of CDT 
6c9 1 38 5 R4 - address of PDT 
ot) 1299 ; RS - address of CDRP 
6C9 1300 ; 
6C9 1 BIR_CLEANUP: 
6c9 1 : 3 
43 ! : 3 Remove CDRP from queue, if needed 
52 pd 06C9 1 4 y PUSHL R2 
04 A b 6cB 1 TSTL DRPSL_FQBL(R5) ; Is there a queue pointer? 
7 % 43 1 8 L 3; If EQL ne 
55 0485 Di 0600 1 CMPL CORPSL_FQBL(R5S) RS : Is CDRP in a queue? 
06 12 0604 131 BNEQ : If NEQ, no 
55 6 OF +3 131 REMQUE (R5),R5 3 Bequeus CDRP 
52°28 a5 «(OD D9 1 1 MOVL CDRPSL_RUCPTR(RS) ,R2 : Get wait count pointer 
0g 1 DD 131 BEQL $ : Branch none 
6 8 44 | 13 DECW (R2) 3 us 
6—E1 1 18 3 
4 ! ' : Deallocate associated message buffer, if any 
5 —1 1 19 S$: POPL R2 ; Restore re 
1c ig 8 BES 1 § TSTL CPRPEL _MSG_BUF (RS) ; Do we Reve any message buffers? 
0 1 E7 1321 BEQL 10$ :; If EQL, no 


VOe-000 
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DEALLOC_MSG_BUF 


; Return CDRP to non-paged pool 
ios MOVL 


ry 
1B 

| : | 88 2 CORSDRVDEALMEN 
1 : 

\ : TENE 

1339 


Clean up for errors on the Listen 
RR: 
DISCONNECT 
RSB 


SYS.SRC 
; Get rid of it 


CSVEC.MAR; 1 


; Address of CDRP in RO 
3; Give back to pool 
; Cleanup done 


; Nothing to clean up -- disconnect 
; Return from error routine. 
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J 3 
SCSLOA = System Communications Service Loadcode 16-SEP-1984 00:19: AX/VMS Ma 04- SCSI 
youeo00 SCSSDISCONNECT grSEe 1 3be BSica:35 PeNCVES Macro, vk. 00, mo ft vor" 
FD 133 -SBTTL SCSSDISCONNECT 
HD 1840 + gota 
FD 4 $ FUNCTIONAL DESCRIPTION: 
FD 1344; 
4 } 43 ; INPUTS: 
FD 4 23 : R3 ==> CDT 
4 i ? ; R4 -=> PDT 
eb ; IMPLICIT INPUTS: 
GF ; CDT$W_STATE 
6FD 1354 ; OUTPUTS: 
6FD 1 22 3 
Srp 1389 | is 
FD 38 ; SIDE EFFECTS: 
A } $i ; If state was LISTEN, then directory entry removed and CDT deallocated. 
a 
6FD 1364 SCSSDISCONNECT: 
6FD 1365 ASSUME CDT$C_CLOSED go 0 
28 A3 83 ss 743 } 66 avee a ha ) 3 M state CLOSED? 
: No 
50 06A9 8F 3C 0702 1368 MOVZWL #SS$_ALRDYCLOSED,RO ; Yes, issue qualified success 
a 
01 28 A3-siB1 8 ! 4 10$: CMPW corey Stare tas). - ; Is state LISTEN? 
03 12 #O70C 1 rg BNEQ — 3; No 
OOF5 = 31 Broe ! ee BRW SCSSREMOVE 3; Yes, remove the entry and exit 
54 10A3 00 ak 1 6 20$ MOVL COTSL_PDT(R3) ,R4 3; Pick up the PDT address 
28 B46 «3617 «20715=«137 JMP @PDTSC_DCONNECT (R4) ; Let port driver handle other states 
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-SBTTL SCSSENTER 
;++ 


$ FUNCTIONAL DESCRIPTION: 


+ CALLING SEQUENCE: 
BSBW SCSSENTER 


SIDE EFFECTS: 
NONE 


: INPUTS: 

; RO = Address of process name (16 byte string) 

: Ri = Address of process info (16 byte string) 

; R2 = CONID 

: SCS$GQ_DIRECT 

: OUTPUTS: 

; RO = SS$_INSFMEM if no pool for directory block 
H = SS$_NORMAL if success 

3 R1,R2 gestroyed 

3 R3,R4,R5 preserved 


SCSSENTER: 
PUSHR 


US #*M<RO,R1,R2,R3> ; Save registers and arguments. 
MOVL #SDIRSC_LENGTH, R1 : Size of a directory entry 
BSBW scS_A ORONPAGED : Allocate it 
BLBC R 3; None, error out 
MOVAB SDIRS$W_SIZE(R2), R3 3 Set pointer to size field 
MOV Ri, + : set size fie 
MOVW § #DYNSC_SCS!<DYNSC_SCS_DIR@B>, (R3)+ ; Size type and subtype 
POPL R1 ; Get pointer to process name 
MOva (R1)+, (R3)+ 3; Move 8 bytes 
mova (R1), (R3)+ 3; Move by 
POPL R1 ; Get pointer to process info 
BEQL 10$ 3 None present 
MOva (R1)+, (R3)+ 3; Move 8 bytes 
mova (R1), (R3)+ ; Move 8 bytes 
BRB 208 

10$ CLRQ (R3)+ 3; Clear it out 
CLRQ (R35)+ 3 Bitte 

20$ POPL (R3) ; Set in CONID 
MOVL 4 bee DIRECT+4, R3 ; End of queue 
INSQUE (R2), (R3) : Insert at end 

30$: POPL R3 ; Restore register 
RSB 

40$ ADDL #324, SP ; Clean up stack 


SCS! 
V04: 


SSM jlibhtyfommntenttons sarvce Suse Uesretats BEIRES Macmmteee Page, ome Hs] 


F7 11 O75D 1436 BRB 30$ 3 eee and out 
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SCSLOA = System Communications Service Loadcode 16-SEP-1984 00:19:52 VAX/VMS Macro V04-00 Page 32 
v04-000 SCSOF IND _RDTE - Find RDOTE for RSPID ey 7 99:13:38 LEYS SRCISESVEC MARST ° (1) 
75F 143 -SBTTL SCSSFIND_RDTE = Find RDTE for RSPID 
ber itz i* 
. 144 ; SCSSFIND_RDTE = Find the RDTE for a given RSPID 
4 : 1e07 3; Functional description: 
75F 1445 ; The RDT ID index is extracted from the given response id, RSPID, and 
75F 1446 : validated. The index is then used to locate the RDTE in the RDT. A 
75F 1447 ; sequence number check is then performed and a check is made to insure 
75F 1448 ; that the RDTE is busy. 
75F 1449 ; 
75F 1450 ; Inputs: 
75F V2 3 
Boer 1452 ; R5 a response id, RSPID 
75F 1453 ; 
75F 1454; IPL IPL$_SCS 
75F 41455 ; 
75F 1338 3 Outputs: 
O75F 1457; 
Oo er 1928 3 RO 1 ==> Lookup successful 
75F 1459 ; 0 ==> invalid response ID 
O75F 1460 ; R1 RDT base address (This is not advertized to SYSAPs but is 
O75F 1461 ; required by SCSSDEALL_RSPID.) 
075F 1406 3 nem reserved 
75F 1463; R DTE address (if RO = 1) 
75F 1464 3- 
75F 1465 
75F 1466 SCS$FIND_RDTE: 
Brat 146 
51 00000000'9F 0 75F 1998 OVL @#SCS$GL_RDT, R1 ; Get base address of RDT. 
. as C 766 146 MOVZWL ° 3; Get RDT index from RSPID. 
F8 Al HH D1 0769 1470 CMPL RO, ROTSL_MAXRDIDX(R1) ; Is index too big: 
1 1A 0760 1471 BGTRU ; Branch if too big. 
76F 1326 ASSUME RDSC_LENGTH EQ 8 
6140 7F rr 147 PUSHAQ (R1)CROJ : Get pointer to RDTE. 
50 55 12 9¢ 07 1474 ROTL #16, RS, RO ; Get response id sequence number. 
55 BEDO 0776 1475 POPL R5 :; Prepair to return RDTE pointer. 
50 06 AS ? 77 1228 CMPW ROSW_SEQNUM(RS5), RO ; Do the sequence numbers match? 
08 2 0770 147 BNEQ 90 : Branch if no match. 
77F 1078 ASSUME RD$V_BUSY EQ 0 
04 04 AS E9 O77F 147 BLBC RDSW BYOPENES? 90$ :; Branch if RDTE is not busy. 
50 01 3 783 1480 MOVL wi, R 3; Set success status. 
0 4 § 1? RSB 3; Return to caller. 
50 Be 787 1483 90$: CLAL RO 3; Set error status. 
5 0789 1484 RSB 3; Return to caller. 
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ommunications Service Loadcode 16-SEP-1 :19:5 AX/VM v04- SCS 
pee prewevew g-SEE =) 382 88: 74 +38 SYS.S Rc ise Oe Rage roe 3, von 


sé LOA - Sys 
=000 SCSSL 


C 
N 
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~SBTTL SCSSLISTEN 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBW SCSSLISTEN 


090909 Co Co CO CD CD OD CD COCO CODCOD CDODCDCDOCDODODODOD ) «60-1353 


rPOWUCUTF>> >> >Y>Y>Y?r>rrr>r>rr>r>rr>rrr>rrrrr>r>rrrrrrrrrrr,r>r>r 


INPUTS: 
O(SP) = Address to call with CONNECT_REQ msg MSGADR 
4(S$P) = Address to rt: with error in VC ERRADR 
8(SP) = Address of Listening process name LPRNAM 
bees = Address of Listening process information PRINFO 
10(SP) = Return address 
OUTPUTS: 
RO = SSS_INSFCDT if could not allocate CDT 
= SSS_INSFMEM if could not allocate pool for directory entry 
= SS$_NORMAL if success 
R1,R2 destroyed 
R3 = Pointer fe. cor if success 
= 0 if failu 
R4,R5 erecerved 
COTSL_INPUT Address to call process with CONNECT_REQ msgs 
COT$L_LCONID Local connect fon id for COT in R3 
COTSW_STATE LISTENIN 


SIDE EFFECTS: 
Directory entry made if successful, CDT state set to LISTEN 


Sete Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Se Se Sse GeSeGse Ss Ge Sete 
+ 


+00 0.090909 09 09 G9 C9 CD C9 CD C0 CD C9 09 G9 CD CD CD 


SVQ aoe Te 


me el ee ed ed od etd = = 4 = 9 3 SS — 4 2 —) — BD — 9 2 = = ws ts = ts 2 Ss = ws a 
PUPP AIA TTT TUT UT UT UT UIT UT UTE BP PPP PPE 
BPP NAAN NII NIIP RIPUDMNNINPININID 2 OS | 2QODTTKOCOOCOOCOCOCOOOOOOOOOOMMCc 
ROOD NOUNE WN 2 OOO NAW EWN O OONOA NESW 2 0 OO NOU EW OO DOONAN EW" OOONO 


SCSSLISTEN: 
£666 30 BSBW 55 88a. 0¢ COT ; Grab a CDT 
18 : 3 BLBC RO, 108 :; None, error out 
52 1 OD MOVL R1, R2 : Shift CONID around 
63 8ED POPL CDTSL_MSGINPUT(R3) : Fill in with address 
OC AS BE POPL COTSL_ERRADDR(R3) ; Ditto for errors 
50 § D MOVQ (SP)+, RO 3; Pick up arguments 
FF 3 79D BSBW SCSSENTER 3; Make a directory entry 
09 5 E A BLBC RO, 208 ; None, erro 
28 a3. «-01:—Ss BO sC*O7A MOVW ¥#COTSC_LISTEN, - t Set state to *LISTENing 
7A COT$W_STATE(RS) 
05 gar RSB 
5E 10 £0 7A 108: ADOL #424, SP ; Clean up arguments 
i” RSB 
FDFA 3 7AC 20$: BSBW SCSPOEALL COTY ; Get rid of the CDT 
5E f rar ADDL #3*4, SP ; Clean up arguments 
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voaeb00 SCS$LOCLOOKUP eT a ey a a pe ew) 
4 | rf: “ ~SBTTL SCS$LOCLOOKUP 
783 1 2$ 3 
oe } ? 3 FUNCTIONAL DESCRIPTION: 
783 (1 a3 3 
A 1 ; INPUTS: 
A i ; R1 = Addr of local process name to look up 
os } : 3 OUTPUTS: 
78 12 8 3 RO = SS$ aOsUCHee if listener could not be found 
78 132 3 = SS$"NORMAL if Listener found 
783 (1 8 3 R1 = Addr of ventry if found 
78 132 : R2 = Preserv 
7B3 1560 ; RS = Addr rs i Listening CDT for local process, if success 
783 1561 ; = failure 
78 1306 3 R4,R5 Preserved 
$8 1382 : 
0783 1565 © 
078 1298 SCS$LOCLOOKUP: 
55 dD 678 156 PUSHL as ; Save a register 
55 2] DO 0785 1568 OVL » RS :; Copy addr of proc name 
4 DD 0788 1399 PUSHL Ra ; Save another reg 
52 OD O7BA 1570 PUSHL R2 3 «ee and another 
54 00000000'9F DE O7BC 1571 MOVAL @#SCS$GQ_DIRECT, R4 : Get head of directers list 
54 86 BD OPES. 1898 10s: mat’ Rao, | host antec 
: 3; Next ent 
éE 8% D1 bre 1574 CMPL = RG isp) : End of the Line? 
30 13 O7CB 1575 BEQL 30$ : Yes, leave - not found 
OC Ad «65 10 29 O7CD 1576 CMPC3 - 
“aig 10g 1377 ate SD As8. PROCNAMCRG? ; Names match? 
- NO, tr 
55 2C Ad 06 aoe 1808 MOV. —SDIRSL_CONID(R4), RS; Yee, pickup up CONID 
; 1 708 1580 BEQL 7°. ; Zero is gree 
52 3C O7DA 1581 MOVZWL R Re : Isolate index 
53 00000000'°9F DO O7DD 15 MOVL aNscss St COL R3 : Pick up pointer to CDL 
5 O34¢ DO O7E4 15 MOVL (R35) ; Obtain pointer to selected CDT 
18 AS 5 D1 7E8 1584 CMPL R5 CDTSL _LCONID(R3) 3; CONID's match? 
F 12 O7EC 1585 BNEQ 308 : No, failure 
50 «.§ 7EE 1 § MOVL #1, RO >: Yes, success 
51 4 OD 7Fl 1 MOVL R4, R1 ; Return pointer to entry 
DS O7F4 1 8 20$: STL (sP)+ : Get rid of temp 
BERD ore 1 POPL R 3; Recover 
54 BE 43 oe 1339 ave (SP)+,R4 ; Restore registers 
7FD 159 
50 20A4 ef 3c OO7F 1298 30$: MOVZWL #SS$_NOSUCHOBJ, RO ; Could not find Listener *** TEMP *e* 
3.0 D4 0 1238 CLRL R ; No chance of spurious CDT 
1595 BRB 208 3; and out 
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ommunications Service Loadcode 16-SEP-1984 00:19: AX/VMS M 4- SCSI 
tS Pn RS ee eae re A, va: 


-SBTTL SCSSREMOVE 
FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBw SCSSREMOVE 


INPUTS: 
R3 = CDT address 
OUTPUTS: 
= SS$_NOSUCHOBJ if could not find entry 
= SS$_NORMAL if successful 
R1,R2 destroyed 
R3 = 0 if successful 
= COT if failure 


R4,R5 preserved 
SIDE EFFECTS: 
Directory entry removed from directory. 


CP) Oo Bo Oe Oe Oe Oe Oe Be Be Oe Oe Be Oe Be Oe Be Os Be Se Se Se Se Se Sse Se Sees 
t + 
i 
» 
Oo 


CSSREMOVE 


a a ee a ee a a dd dd dd 
PDEADXPAEXAALAAAA AAA AAEAAAAAAAAAAAAAAAAAAAOAAAAAOOOOOUIUIN 


BEE AWWW AAI AI ARO ROPORIPONUNUNONNYD 3 BQO OOOO OOOO00O 


WO OONAUNE WIN = OO DNAUN ES WIN OOO NAUE WIN OOD NAUE UW OUOOn 


20A4 BF 3C MOVZWL #SS$_NOSUCHOBJ, RO 3; Assume failure 
00000" 9F DE MOVAL a#SCS$GQ_DIRECT, R2 : Get pointer to directory head 
51 28 D 1 MOVL R2, R1 : Copy 
33 62 00 081 10$ MOVL  (R2), R2 : Get next entry 
52 O«51)Ssié1s«08 18 CMPL = R1, R2 : End of the Line? 
ig 13 0818 BEQL 208 : Yes, leave can't find entry 
18 A D1 81 CMPL CDT$SL_LCONID(R3), - 
: SDIRSC_CONID(R2) 3; Match CONID? 
> SSB NEQ 10$ 3 No, try next one 
50 $¢ OF 4 REMQUE (R2), RO 3; Yes, remove it 
5 4 7 PUSHL R3 3; Save CDT addr 
0018 9 BSBW sos. EALNONPAGD ; Release the pool space 
53 8ED C POPL R ; Restore CDT 
50 9 Y F MOVL #1, RO ; Set for success 
FD74 : BRW SCSSDEALL_CDT1 : Get rid of CDT and return 
05 5 20$: RSB ; Leave 
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v04-000 SCSSRE mies 7 88: 13: 38 SYS.SR ci SCSVEC. MAR; 1 . (1) VO04: 
ota i 16 
oe br 
50 0124 8F f 
00000000' 9F 17 


ee 
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Misc routines 


SCS_ALONONPAGED: 
JSB SCENE RELONOUPASED 
BLBS 


: ot jecate the pool 
MOVZWL ieés. INSFMEM, RO 
RSB 


i Skip out if success 
; Set a reconizible error code 
10$: ; Leave 
SCS_DEALNONPAGD : 
JMP a#COMSDRVDEALMEM ; Deallocated 


PORBOOCOOOOOAO 
PUTAS 


AUST OVOOnNOu 


Thread resumed and IRP's started up when appropriate. 
Note all registers RO - RS may be modified. 
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SCSLOA - System Communications Service Loadcode 16-SEP-1984 00:19: AX/VMS Macro V04-00 Page 37 SCSI 
¥62+000 SCESR SUMEWAIT ety 7 90:13:38 SYS.SRCISCSVEC.MAR;1 ° (1) VO04- 
rt ~ -SBTTL SCSSRESUMEWAITR 
4B : 
rt i FUNCTIONAL DESCRIPTION: 
48 ; Global SCS routine to resume a thread that had been 
48 : waiting on a resource wait queue. This routine resumes the thread 
48 3 and upon return from the thread, if the CDRP associated with the 
4B $ resumed thread had a RWAITCNT, then we attempt to start any stalled 
: IRP's that may have been queued to the UCB while we were waiting. 
: INPUTS: 
; RS => CDRP of thread to resume 
> OUTPUTS: 


SCSSRESUMEWAITR: ; Here we will start driver thread that 
; was waiting for resource. 


3 We divide the CDRP thread to be restarted into two classes: Those which 
do NOT have a RWAITCNT and those which do. The code path for those 

without is very simple and epecars directly below. The more complex 

case of CDRP's with a RWAITCNT begins at label THREAD_HAS_RWAITCNT. 


53 28 AS if MOVL CORPSL_RWCPTR(RS) ,R3 ; R3_=> UCBSL_RWAITCNT or R3 = 0. 
4 1 BNEQ THREAD_HAS_RWAITCNT 3; NEQ implies R3 => UCBSL_RWAITCNT. 
53 110A 7D MOVva CORPSL-FR3TRS) ,R ; Restore register context to thread. 
0c B5 M6 JSB SCDRPSC_FPC(RSS : Call back driver thread. 
0 RSB ; Return to caller. 
THREAD_HAS_RWAITCNT: ; Here we have R3 => UCBSL_RWAITCNT. 
63 87 pEtw (R3) ; One Less CDRP waiting for resources. 
BC AS D PUSHL SOR et UCR IRS} ; Save this CORP'S UCB address on stack. 
53 10 AS D mova CORPSL_FR3(R5) ,R3 ; Restore context of waiting IRP. 
0c 8) 16 JSB SCDRPSC_FPC (RSS : call back driver thread. 
8ED POPL R ; RS => UCB. 


Here we peve separ igncee return from a resumed thread that maintains 3 
UCBSW_RWAITCNT. Now we see if we can start up any IRP's that may have 
backed on chis UCB. These would be new IRP's that had not yet gotten 

nto " 


NOTE - This prsexeotne SCSSUNSTALLUCB may be called independently to 
unstall UCB’s that may have had non-zero RWAITCNT's for other 
reasons. 


PPD DPE DPD DPD DEPP AD. I Be Be ES BS BB BB PEP PPP PPP PPLE ES 
DOOVOM—"*WDOODWIWIODWVIWDOODOOOOWVWVIOOOOOOOOw 


SENSES SID DD DED DDD DDD PDP PAPA AAA AA AAA AAAAAAOOAOOISOOAOAA 
A § § #~> QOD O000 0000 O0O OO OO 0909 69 69 09.69 09 09 09 09 SII SIN NNN NIA AA AAA AAOOurn 


a sn a a a a a a at a a ot = 4 — 2d = — — 2 2) 2 ss —) > — 2 — ss — 4 4 ss — > — 4 — 2s 2 ss 2 2s 2 2 2 a > 


200090900 09 00 09 G9 9 C9 09 09 Cd Cn Cd 69 OD Od Od Od Cd 09 09 9 CD OD CD OD 0 OD OD CD 09 CO C9 Od CO CD C9 09 CD CD CD: 
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yoreb00 SCSSRESUMEWATIR grSEE 198s BSiL9:35 FENCES Macro YOK=00, ” Th 
1715 SUNSTALLUCB: 
56 AS 83 : 171 7683 TSTW SW_RWAITCNT(RS) ; Can we s or tus backed up IRP's? 
1A B 171 NE 3; NEQ implies NO, so branch around. 
53 4C B5 oF D | 1 REMQUE $BSL_100FL (RS) RS ; Remove ist (if any) IRP from queue. 
4 D BVS ; VS implies no backed up IRP's. 
5 oD 1 PUSHL 3; Remember UCB address on stack. 
AA 1 BICW #UCBSM_CANCEL!- 
| UCBSM_TIMOUT,- 
64 AS 0048 8F a) 1057 UCBSW_STS(R5) ; Clear cancel and time out 
78 ! 5 ASSUME pore START Fe 0 
51 0088 D5 p 7 4 § MOVL oUC8 C_DDT(RS),R ;_R1_ => Start_io routine. 
gi 1 JSB R1) 3START 1/0 OPERATION 
5 BED Mf 8 POPL RS 3; Restore R5 => UCB of interest. 
—1 11 2 1? 3 BRB 10$ ; Loop back to start more backed up IRP's. 
05 7 1731 208: RSB 
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-SEP- SYS.SRCISCSVEC.MAR; 1 
-SBTTL SCSSLKP_RDTCDRP 


VO4-000 


FUNCTIONAL DESCRIPTION: 


Search RDT for CORPs with COT address matching the one in R3 
mpen Sntry. For each CDRP found, call user-supplied action 
u ° 


; CALLING SEQUENCE: 
JSB SCSSLKP_RDTCDRP 
INPUTS: 


Ro --> Addr of action routine 
R3 --> Addr of CDT 


OUTPUTS: 


RO --> status code 
success ==> RDT contains no CDRPs with matching CDT 
failure ==> RDT contains one or more CDRPs with matching CDT 
R1 not altered or preserved by this routine; may be used as a 
communication mechanism between action routine and caller of 
this routine 
R2 - RS preserved 


ACTION ROUTINE INPUTS: 


Ri ==> unchanged from value set by this routine's caller 
R3 -=-> Addr o T 
R4 =-> unchan a OS value set by this routine'’s caller 


. 


RS -=> agur 2 


ACTION ROUTINE OUTPUTS: 


RO scratch 

R1 value to be returned to this routine's caller 
Re scratc 

R Addr of CDT; MUST be preserved 

R4 - RS scratch 


N.B. More Likely than not R4 is a PDT address which also must be 
preserved. However, this routine makes no such assumption. 


STACK USAGE: 
This routine manipulates the stack in a rather odd mannor. Therefore, 


the following nap of the stack, as it is at the time of the JSB to the 
action routine, is provided to describe how the stack is used. 


a ed ed ed dS ed = — 4 2 2 4 4 —) 2 8 a dd 4 8 2 2 — 2 oO 


i Saved List base R2 i 


H 4 
so EcHRLESTASUDUBTCn OM Service USudéode g-SEEREY BOIE:5E UNLIME aereePOG, POE H, 


. ' Sm eee mae & @ ow ee oS ae oS ee SO wD mm Oe om ee we mm oe Sw ow oe me ow ew oe Seas ware oew ewe wes => ' 
s } r0 Action routine address 
: } ri "“found-one"’ flag RO ' 
3 r2 Saved register 2 R2 } 
; r4 Saved register 4 RG ' 
3 } r5 Saved register 5 R5 } 
: '=as saved by PUSHR as restored by POPR-' 
SCSS$LKP_RDTCDRP: 
BB PUSHR #*M<RO,R1,R2,R4,R5> 3; Save registers, make place for saved 
04 > 1 } MOVL : ‘“found-one" flag, & init. none found. 
50 00000000'9F  3¢ MOVZWL a#SCS$GW_RDTCNT, RO : Pick up number of entries. 
52 00000000'9F 00 MOVL a#SCSSGL“RDT, RO : Pick up pointer to List. 
52 oD PUSHL R2 3 Save that on the stack. 
ASSUME eese Lgwerd EQ 
$8 art 7 10$: MOVAQ 6*-8TR2)CROJ, R 3 Pick up next entry. 
04 A ; TSTW  RDSW_STATE(R5) : Is it in use? 
19 BEQL 3; No, try another. 
55 65 it MOVL ROSL_CDORP(RS), RS ; Pick up CDRP pointer. 
14 ~«O1 BEQL 3; None, try another. 
53 24 A5 01 CMPL DRPSL_CDT(RS), R3 3: CDOT's match? 
OE 12 BNEQ 0$ ; No, try some other. 
08 af D4 CLRL (SP) : Raise “found-one'’ flag. 
5 OD PUSHL R 3 Save list index. 
08 BF 1 JSB a8 (SP) : Call action routine. 
8ED POPL R ; Restore List index. 
52 oF D MOVL (SP), R2 ; Restore List base address. 
pA 50. OF 208 SOBGTR RO, 10$ + Loop until done. 
SE 08 AE 9E MOVAB 8(SP), SP ; Cleanup the stack. 
35 BA POPR #*M<RO,R2,R4,R5> > Restore saved ‘‘found-one"’ flag and 
05 RSB ; other preserved registers. 
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FUNCTIONAL DESCRIPTION: 
Search RSPID wert ueue for next CDRP with CDRPSL_CDT that 
Batches COT specif eg in R3. For each CDRP found, call user- 
supplied action routine. 

CALLING SEQUENCE: 


JSB SCSSLKP_RDTWAIT 


INPUTS: 
RO --> Addr of action routine 
R35 ==> Addr of COT 

OUTPUTS: 


RO --> status code 
success ==> RDT contains no CDRPs with matching CDOT 
failure ==> RDT contains one or more CDORPs with matching CDT 
R1 not altered or preserved by this routine; may be used as a 
communication mechanism between action routine and caller of 
this routine 
R2 - RS preserved 


ACTION ROUTINE INPUTS: 


Ri --> unchanged from value set by this routine's caller 
R3 --> Addr of CDT 

R4 ==> unchenees from value set by this routine's caller 
RS --> Addr of CDRP 


ACTION ROUTINE OUTPUTS: 


RO scratch 
R1 value to be returned to this routine's caller 


scratc 
R Addr of CDT; MUST be preserved 
R4 - RS scratch 


N.B. More Likely than not R4 is a PDT address which also must be 
preserved. However, this routine makes no such assumption. 


STACK USAGE: 
This routine manipulates the stack in a rather odd mannor. Therefore, 
the following an of the stack, as if s at the time of the JSB to the 
action routine, is provided to describe how the stack is used. 


\ Saved next entry address R5 (SP) 


: Saved end of List address ' 


AAOAOAAOOQAOOOOQOAAANAHAAAAAAAHAAAHAAAOAOOAAONMAAAOOAHAANMOMOOANHO 
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SCSLOA = System Comm 
yo2e000 SCSSLKP RDTWAIT SYS. SRCISCSVEC.MAR; 1 
cB 7; } r0 Action routine address } 
te § ; ri ““found-one"’ flag RO 
te 1 3 } r2 Saved register 2 R2 
te } + $ } r4 Saved register 4 RG ' 
CB 1895 ; i 5 Saved register 5 Rs | 
it : 38 P} ' wr ase se 2waeoeaewnr er nmrae wo ec mee nw er or ane nw onoenann a eae es > i ei ae ' 
cB | 38 3 t-as saved by PUSHR as restored by POPR-! 
cB 3 
fe 901 
CB 19 : SCSSLKP_RDTWAIT: 
7 BB CB 19 PUSHR #*M<RO,R1,R2,R4,R5> ; Save registers, make place for saved 
4 ar 1 pO O8CD 1904 MOVL ; ““found-one"’ flag, & init. none found. 
55 0 900 00'9F DO 08D1 19 5 MOVL a#SCSS$GL_RDT, RS : Pick up pointer to List. 
E8 AS ODE D8 1 6 MOVAL RDTSL_WATTFL(RS), R5 ; Point at wait queue head. 
55 OD oC 138 PUSHL R 3 Save end of queue information. 
55 $2 dO 43 1908 $05: MOVL (R5), RS : Pick up next entry. 
6 55 Di OB8E1 1909 338:  cCMPL RS, (SP) : End of queue? 
13 13 OBES 1910 BEQL = 608 ; Yes, quit. 
53 24 A D1 E6 191 CMPL DRPSL_CDT(RS), R3 3; COT’s match? 
Fe \¢ EA 1316 BNEQ 0$ ; No, try again. 
08 AE D EC 191 CLRL (SP) : Raise “found-one" flag. 
6 DD EF 1914 PUSHL (R5) 3; Save next entry address. 
08 BE 16 Fi 1915 JSB a8(SP) 3; Call action routine. 
8ED0 F4 1318 POPL R5 3; Restore address of next entry. 
E8 11 O8F7 191 BRB 33$ : Since RS already has the address 
F9 1313 3; of the next entry. skip the queue 
F9 131 ; traversal step of this Loop. 
5E O08 AE 9E O8F9 1920 60S MOVAB 8(SP), SP ; Cleanup the stack. - 
3 A O8FD 1921 POP #*m<RO,R2,R4,R5> ; Restore saved ‘'found-one"’ flag and 
5 O8FF 1922 RSB ; other preserved registers. 
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-SBTTL SCSSLKP_MSGWAIT = Scan message wait queues 


ica 


; SCSSLKP_MSGWAIT = Scan message wait queues 
Functional description: 


Search send credit wait and message buffer wait queues for CDRPs with 
CDORPSL_CDT that matches CDT specified in R3. For each CDRP found, 
call user-supplied action routine. 


This routine completely searches the message buffer wait queue before 
searching the send credit wait queue. Both queues are searched front 
to back. This is the reverse of the order in which the PADRIVER adds 
entries to these queries. This search ng stratagy has been choosen to 
maximize the possibility of locating CDRPs in the order in which the 
PADRIVER prose sed them. This is very important to the connection 
manager which is trying to assure sequential oon cuere of specific 
eer types to remote systems. The lock manager, in turn, depends 
upon this sequential delivery promise. 


DO NOT break this attempt at sequential location of CDRPs. Do not 
change the order ing of queue insertion (in the PADRIVER or other port 
drivers used to maintain VAX-to-VAX connections) or the order of queue 
scanning here. 

Calling sequence: 
JSB SCSSLKP_MSGWAIT 

INPUTS: 
ee --> Addr of act 
R3 --> Addr of COT 
R4 --> Addr of PDT 


ion routine 


OUTPUTS: 


RO --> status code 
success ==> RDT contains no CDRPs with matching CDT 
failure ==> RDT contains one or more CDRPs with matching CDT 
R1 not altered or preserved by this routine; may be used as a 
communication mechanism between action routine and caller of 
this routine 
R2 - RS preserved 


ACTION ROUTINE INPUTS: 
Ri ==> unchanged from value set by this routine's caller 
R3 --> Addr of CDT 
R4 ==> unchanged from value set by this routine's caller 
RS --> Addr of CDRP 

ACTION ROUTINE OUTPUTS: 


RO scratch 


< 
Ra 
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} : re veruy fe be returned to this routine's caller 
1983 : R Addr of CDT; MUST be preserved 

3 | 2 ; R4 = RS scratch 

900 1 ¢ : STACK USAGE: 

9 1 ; This routine manipulates the stack in ’ rather odd mannor. Therefore, 
9 1 8 3 the following nap of the stack, as it is at the time of the JSB to the 
2 ! 4 ; action routine, is provided to describe how the stack is used. 

900 1991 ; | enn wnn annem nnnn nnn nnn nnn nnn anew nnn nnn nnn nnn n nnn nnn nnn n nena --=- ! 

2 1 35 ; Saved next entry address R5 : (SP) 
30 3 ; Saved end of List address 

30 %6 : r0 Action routine address 

300 38 ; ! ri "found-one''’ flag RO } 

0300 ; | r2 Saved register 2 R2 | 
0300 : r4 Saved register 4 (PDT) Ra } 
0300 : r5 Saved register 5 RS } 
0900 : ' 8 ‘ 
44! ; t-as saved by PUSHR as restored by POPR-! 

Be 

i 

6 


sss 
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0 = 
0 
SCSSLKP_MSGWAIT: 
37 BB O9 § PUSHR #*M<RO,R1,R2,R4,R5> ; Save registers, make place for saved 
04 AE O01 DO O9 MOVL #1 : “found-one"’ flag, & init. none found. 
55 OOAC C4 DE O09 & MOVAL P TSL_WAITQFL(R4), RS  : Point at msg. buf. wait queue header. 
55 DD 09 PUSHL R : Save end of queue information. 
55 $2 DO 0900 § 398: MOVL (R5), R5 ; Pick up next entry. 
6E 35 D4 318 $: CPL R5, (SP) ; End of queue? 
: Yes, quit. 
53 he D1 (091 CMPL DRPSL_CDT(R5S), R3 : CDT s match? 
F2 12 0919 BNEQ 0$ ; No, try again. 
08 AE D4 0918 1 CLRL (SP) t Raise “'found-one’’ flag. 
6 DD 091 § PUSHL (R5) 3; Save next entry address. 
08 BE 8 9 JSB a8(SP) 3 Call action routine. 
8ED 2 4 POPL R 3 Restore address of next entry. 
€8 11 5 BRB $ : Since RS already has the address 
9 § 3; of the next entry. skip the queue 
9 3; traversal step of this loop. 
55 38 a +3 9 60$: MOVAL cOTst CRWAITQFL(R3), RS ; Point at send credit wait queue head. 
of 5 D 2 C MOVL R5, (SP) 3 Save end of queue information. 
5 63 DO F gos: move =—s- (R5),,_R5 : Pick up next entry. 
6E b $: CMPL R? tsP) : End of queue? 
13 9 Beal = -106$ ; Yes, quit. 
53 244A f 9 CMPL REPEL _COTCRS). RS 3; CDOT’s match? 
F ¢ 9 : BNEQ $ : No, try again. 
08 AE D4 09 CLRL (3) : Raise “‘found-one"’ flag. 
DD 094 § PUSHL (R5) : Save next entry address. 
08 BE 16 094 JSB a8(SP) 3; Call action routine. 


mM 4 
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yo2 +000 SCORLRE MSGUATT < Seon messuae Wate coer SoSEPHTORG Bosurias PANCMeS Macro yOu; 00, ve wD 
55 BEDO 094 POPL & 3; Restore address of next entry. 
é 11 $8 § BRB OSS S Since RS already has the sddress 
GA 4 3: of the next entry skip the queue 
+4) r ; traversal step of this loop. 
SE 08 af 9E cA 45 100$: MOVAB 8(SP), SP ; Cleanup the stack. ; 
BA ae 44 POPR #*M<RO,R2,R4,R5> ; Restore saved 'found-one” flag and 
5 Baas Be? RSB 3; other preserved registers. 


Ra 
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FUNCTIONAL DESCRIPTION: 
This routine is called yrengxer SCS builds a new system block 
(SB) or reuses an 9 sti ne 58 B with a new software incarnation 
number. This routine initializes the poller fields in the 
system block. 

CALLING SEQUENCE: 


JSB SCSS$NE 
IPL must be + “Tees SCS, IPLS_TIMER 


INPUT PARAMETERS: 
R2 contains the address of the system block of the new system. 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO and R1 are destroyed 


Use of SBS$W_TIMEOUT: 
SBSW_TIMEOUT indicates that state of polling on a particular node 
>8 § Rocande Ty mph Fe polling is triggered 


| Betting: in progress, reset timer on completion 
-2 : Polling in progress, set to 0 on completion to repoll 


Use of SBSB_ENBMSK: 


Each process. name to be polled is assigned a bit in the SBSB_ENBMSK 
arra If the bit is ser. then petting for the process name is 
enabled; if’ the bit is clear, polling for the name is disabled. 

441 allows system by system control over which processes are 

po 
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SCSSNEW_SB: 
PUSHR 
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3C~—Css«éBB #°M<R2,R3,R4,R a : Saye registers 
58 A 8 CLRW SBSw_TIMEQUT(R 9 er for inaediate polling 
00000000'GF 0 8 MOVC3 #SB$S_ENBMSK : Initialize polling mas 
SAA G*SCSSGA_DFLTMSK, 


e -1984 4- SCSL 
vOu-000 SCREWS" NewReused System's Sade 1 ~3Eb=198e 09:29:38 Perey HES tet mans row 1, vo4= 
3¢ BA 3a 10g POPR See eNaRSK (Re. ; Restore registers 
zn 


04-000 


3F 
55 00000000'GF 
10 
51 6 
FEC 
2c 2 
08 A2 1 
OA A2 0860 8F 
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; FUNCTIONAL DESCRIPTION: 


be polled into this module. 
CALLING SEQUENCE: 
JSB SCSSPOLL_PROC 


INPUT PARAMETERS: 


OUTPUT PARAMETERS: 


COMPLETION CODES: 
RO contains status 
SIDE EFFECTS: 


RO is destroyed 
New data structures are built 


Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Se Ge Se Se Se Ge Ge Se Fes Sse Sse See GeSse Ge Ge Ge 


SCSSPOLL_ PROC: 
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-SBTTL SCSSPOLL_PROC = Declare a process name to the poller 


This routine is called to declare 
The routine builds a Poller Proces 
An unused bit is allocated and assigned to this an BG 


Polling for the process is NOT enabled. 


Note: Things could be simplified by omittin 
and wiring the necessary (and short) List o 


acro V04-00 Pa 4 
ve 8, 


a Black a to 
s 


e | ian 
lock and fee : 


this routine 
processes to 


IPL must be at IPL$_SCS, IPLS$_TIMER 


RO contains the address of the notification routine 
R1 contains the context to be passed to the notification routine 
R2 contains the address of the process name 


R1 contains address of the SPPB (to be used as context to other calls) 


PUSHR <n R1,R2,R3,R4,R5> ; Save registers 
MOVA g- ace 6w_NEXTB if, RS : Address of next bit to allocate 
CMPW (R5),#SBSS CENBMSK «8 : Any bits left? 
BGEQ : Branch if stl grits used 
MOVZWL 4 ia te: LENGTH,R1 : Size of a SPP 
BSBW sCS.A ALORONPAGED S Bilecete's SPPB 
BLBC RO,30 ; Exit on error 
MOVW R1, SPPBSW_SIZE(R2) : Store size 
ASSUME sP pres B_SUBTYP,€0,SPPBSB_fYPE+1 . 
MOV its $cs! - ; Store type and subtype 
A HH te _5CS_SPPB@8>, - 
SPPBS$B Biase 
ASSUME Pepeee “RTN+4,EQ,SPPBSL_ J 
MOva (SP)+, ‘ep PPBSL_RTN(R2) Store routine address and context 
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POLL_PROC = Declare a process name -SEP-1 SYS.SRCISCSVEC.MAR;1 (3) 
24 A2 6 44 7 2167 MOVW (R d. SPPBS$W_BIT(R2) ; store al located mask bit 
g 8 B 2) INCW (R5) 3; Mark bit used 
be D 21 PUSH Re : Save SPPB address 
OC A2 04 BE 1 1 MOVC #SPPBSS_PROCN Store process name 
1 a4 (SP), SPPB *PROCNAN(R2S 
00000000 ' GF 00 . 0 9 1 INSQUE a(SP) 6 344 GO_POLL 3; Link into head of List of SPPB's 
50 dd 09 17 MOVL ScASSE NORMA L,RO : Success 
E BA O9A0 2174 10$:  POPR #*M<R17R2,R3, ate R5> 
5 A 175 RSB 
50 D4 O9A 176 gps: CLRL RO ; Set failure return 
SE 04 0 Q9A 17 $: ADDL2 4#4,SP ; Balance stack with main path 
F671 gas 178 BRB 10$ 


, 2 ; 
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voe000 SCOEPOLL NODE = EnabrerDisebler porting SagePe19n, Besarios Le re eect O One, ~— vor" 
. } -SBTTL SCSSPOLL_MODE - Enable/Disable polling for a process 
AA Stan 3° 
AA 5 $ FUNCTIONAL DESCRIPTION: 
9AA 21 5 : This routine enable or disable polling for a process on 
SAA 2) 3 qi tier a specified system or a global basis. If polling 
95 } ; s enabled on any existing system, a poll is requested. 
BAA ; CALLING SEQUENCE: 
9AA 21938 : JSB SCSS$POLL_MODE 
a 130 : IPL must be at IPL$_SCS, IPLS$_TIMER 
SAA 196 : INPUT PARAMETERS: 
SAA 138 : RO contains 0 to disable or 1 to enable polling 
9AA 2199 ; R1 contains the address of the SPPB bloc 
zee 3 ; R2 contains the address of the System ID or 0 (for global) 
9AA 2202 : OUTPUT PARAMETERS: 
O9AA 88 3 
_ Be ; NONE 
aM 06 : COMPLETION CODES: 
a 03 : RO contains status 
BAA 10 : SIDE EFFECTS: 
SAA \¢ : ALL registers preserved 
SAA 13 3 
San 5518 
SAA 1 SCSSPOLL_MODE: 
ef BB SAA 1 PUSHR #*M<R1,R2,R3,R4,R5> 
53 9AC 18 MOVL RO,R ; Set/clear flag 
54 24 Al g 9A 1 MOVZWL SPPB$W_BIT(R1),R4 3; Process’ bit number 
52 0D 9B 0 TSTL R : Is system name specified? 
1F is 98 1 BNEQ 208 ; Branch yes 
00000000'GF 01 54 53 F 9B § INSV R3,R4,41, - 3 Set bit in default mask 
9C G*SCS$GA_DFLTMSK 
50 saa; nad pF 9C ¢ MOVAL Paareeseerom teee 3; Address of SB Listhead 
1 99 D 9C MOVL ),R1 3; Address of first SB 
es ae aca é 10$: CMPL 1,R6 : End of List? 
4 OY CD BEQL § : Branch if done 
18 #1 OCF BSBB 0$ ; Handle a system 
51 61 OD 901 MOVL SREtFLINK CAT) A : Link to next SB 
F4 Ss +4 BRB $ :; Iterate 
51 § dO $06 20$: MOVL R2,R1 ; Address of system ID 
Be 9D CLRL R ; No output buffer 
FASD 908 & BSBW sh S$f QM 16818 3 Lookup systee ID 
05 50 ‘ D 5 BLBC RO,40$ : Branc System ID not found 
8 E § BSBB 100$ : Enable/disable polling 
50 ..-. 2 9E 308: MOVL S*#SS$_NORMAL ,RO ; Success 
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System Communications Service Loadcode 1 4 00:1 AX/VMS Macro V04-00 Page 51 
cSSPOLL_MODE - Enable/Disable jberdeo ¢ 'OSEb=]982 BOi19:35 PANEMas Macro, YORz00, ae” 
BA 40$: POPR #*M<R1,R2,R3,R4,R5> 

5 RSB 

43 | aS Y6 petvcleor ft 

3 ss ear fla 

a6 FRE 1S BEE Gombe "9 

2 ; R1 is address of the SB 
E 3 $ {00$:  BLBC R3,1208 ; Branch to disable pollin 
E 3 4 BBSS R4 ,SBSB_ENBMSK(R1),130$ ; Branch if already enable 
° & 4 TSTW W_TIMEOUT(R1) ; Check timeout 

F4 BLSS ; Branch jf in progress to retrigger 

: arg rene SBSW_TIMEOUT(R1) 3 aot to 0 to trigger polling 
4 ara 1108: a #2,SB$W_TIMEOUT(R1) : Polling in progress, retrigger 
3 OFF : 1908: BBCC R4,SBSB_ENBMSK(R1),130$ ; Disable polling 

5 Age 2? 130$: RSB 3; Return 


) 
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-SBTTL START_POLL = Start poll of requested processes 
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FUNCTIONAL DESCRIPTION: 
This foutiee is gfeitee as a posutt ef a timeout. It must 
scan the | .¢ system cocrepens ng athe timeouts. If 
a system Aa timed out, a poll e processes listed 
for that system must be begun. 

CALLING SEQUENCE: 


JSB START 
TPL must be ae a SCS, IPLS_TIMER 


INPUT PARAMETERS: 
RS is the address of a TQE bloc 
R4 is the address of the SB Msp is the start of the 
err t sequence used to select the next system to 
polt R4 does not aie to an SB, the sequence 
egins with the first 
OUTPUT PARAMETERS: 


RG te 7 new SB at which the search sequence is to 
start. 


COMPLETION CODES: 
NONE 
; SIDE EFFECTS: 
RO,R1,R2,R3 are destroyed 
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TART_POLL: 
52 00000000' GF 43 MOVAL £. 3£5860_COM 16.Re 3 Address @ tystes Listhead 
50 4 MOVL R4, : Positi n scan 
CLRQ R3 ; Not net~eut system found yet 
3} g D MOVL (R2),R1 3; First SB 
1 D 10$ CMPL =e R2_ RG ALL yt? 
4D «1 BEQL 80$ 3; Return 
a D1 CMPL RO,R1 3; At start of new scan? 
iF BNEQ 208 
54 D MOVL R5,R4 ; Save preceding match 
D4 CLRL Rg ; Look for su ceeding match 
58 Al 7 208: DECW 2R0¥_TIREOUT IAT) ; Decrement timer 
OF 5 BLEQ ; Timed ou 
51 61 9 30$: MOVL SRS _FLINKCRT) ORI ; Advance to next SB 
E7 BRB $ 
93 GA ts POPR #*M<RO,R1> ; Restore registers 
58 Al 7FFF 8F B60 50$: MOV #°X7FFF, ; Set max timeout -- this will be 


H 5 
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SCSLOA = System Communications Service Loadcode 16-SEP-1984 00:19: AX/VMS Macro v04-00 Page 5 SCSI 
vore000 START. POLL - Start poll of requested pro ai oets 1 30:19:38 SYS.SRCISCSVEC.MAR; 1 ° 23, V04: 
A 15 W_TIMEOUT(R1) 3 reduced when a bit is set 
Fl = 11 2 | BRB 185 3; Continue scan 
seki ob Oaso 5819 Oe FeeL OR rmcourcat? t Pal Ine outa s ti 
& : Po N progress, unmun mer 
EA 8 C BNEQ $5 3; Was -2, entre for now ° 
“ ; here if polling is triggered but not yet begun 
A 70$:  PUSHR #*M<RO,R1> ; Save registers 
50 OC Al BE AS ¢ MOVAB SBSL_PBFL(R1),RO 3 Address-of path block queue header 
60 50 A4 § CMPL RO, (RO) i: Is there a path block? 
4 AG BEQL §«=6_-40$ : Branch if no 
SA Al 02 0 38 OA49 SKPC #0,#SB$S_ENBMSK, - z Any polling bits set? 
AG SBB_ENBASK(R1) 
Be 13° OA4 BEQL 40$ ; Branch if no bits are set 
2 BA OA POPR #*M<RO,R1> ; Restore registers 
00000000'8F 51 D1 OA CMPL  R1,#SCS$GA_LOCALSB : Local system? 
4 13 OA BEaL «=s«S0$ ; Wait a long time 
ee ASB 4 TSTL R 3; Found one yet this pass? 
> is ASD 5 BNEQ 30$ 3; Branch if yes 
53 . ASF § MOVL R1,R3 3; Remember this one 
4 D046 OA6 CLRL RG : Forget lower presedense type 
C2. «11 a 8 BRB 30$ 3; Rejoin main flow 
A6 40 ; 
A 41 ; The scan over all SB's is completed. 
A 42 ; R3 NEQ 0: 
A6 435; RS is the first SB ready for petting following the mark 
A6 44 ; point set during the last pass, or if there is not 
Ab 45 ; such system, R3 is the first SB ready for polling following 
A6 rt 3 the List header. R4 is 0. 
Ab 47 ; «3S EQL 0: 
A6 +3 3 R4 is 0 or the address of the first SB ready for polling 
Ab 49 ; preceding mark point set during the last pass and no SB ready 
Age 29 ; for polling was found following the mark point. 
A6 26 : If any systems are ready for polling, initiate polling one 
- 3; of these. 
5354 C8 Ag 3 bos BISL2 R4,R3 ; Address is in R3 
03 A § BEQL 90$ : Branch if no system 
54 D A MOVL SBSL a at! R4 ; Address of scan restart point 
14 AS 4 p ng 90$ MOVL R4, TOE L_FR4(R5) 3 Save restart point 
1 A BeQL 1468 : Branch if no systen ready for polling 
55 D OA? PUSHL R5 : Save address of TQE 
51 00000000' GF C OA?76 1 MOVZWL 8, SCSSGU_NEXTOIT AN ; Number of possible SPPBs 
1 4 C& QA? § MULL #4,R : One Longword per SPPB 
1 ¢ CO OA ADDL #SPNBSC_HDRSIZ+4 ,R1 : Space for Listhead and trailer 
5 A : PUSHL R : Save SB address 
FDA A BSBW SCS_ALONONPAGED ; Get pool 
8ED A § POPL R ; Restore SB a dress 
54 E A BLBC RO,130$ ; Can't, so exit nicely 
F 13 A PUSHR #*A<RO,R1,R2,R3,R4,R5> 
62 51 00 62 00 2C OA movcS #0,(R25,#6,R1 (Re) ; Zero allocated block 
F BA APs POPR #*A<RO,R1,R2,R3,R4,R5> 
08 a2 «51 «BO SCOOA 7 MOVY 1, SPNBSW’SIZE(R2) ; Store size 


VOu-000 


OA A2 09 


55 


0 
10 A 


15 A2 
60 8F 


F 
Ae 
F 


58 A3 
18 
004F 


55 


stak 


@ 
oO 


-9o8F womw—cCOCo TC o00U 
=-—O8 M—MmWwW—ommnmno 


.~J 
- 


87 


BA 
8ED 
0 


PRES ULER stt Arve htsods MECN SOUR We Rtn 
R 


R is address a -, eats info in message buffer 
Preserves R1-R 
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Sad 


PB e108 7 Bran RO 
K(Re I Branch {f not interests 
R& : Save some registers 
(ek ng). an : Address of node name 

$ YSTEMID(R2) ,R2 Address of syetes 
MOVL appest CTX-SPPB na R 


call notification routine with: 


ID 
Context longword 


R js context Longword 
Ril is address o process name 
R2 is address of system 


Page 54 
ett 


Potting pis number 


ASC CLRW SPNBSW_REFC(R2) pois reference count 
ASF ASSUME SPNBSB-SUBTYP EQ SPNBSB_ typ 
ASE MOV #DYN “$C !~ 
AA nS, SPN cs, SPNB@8>, SPNBSB_ TYPE (R2) set type 
AA id: MOVL R seuss 58 ) Address of § 
AA MOVAB B44 os. sPNB 3 R UTINE (R2S Address or local notification routine 
AA 7 MOVAB SPNB : NAMLSTTR s Address dete area 
AB 7 MOVAL oa fa. POLL. R : Poller process list head 
AB MOVL R5),R 3; Address of first SPPB 
ABC 100$:  CMPL RS r6 ; done? 
ABF BEQL 126$ : Branch if yes 
AC MOVZWL SPPBS$W_BIT(RO) RI ; Get process bit number 
AC 4 BC R1 S888 ENBMSK(R3),110$ : Branch if poll not enabled 
ace 5 MOVAB SPP BSB_PROCNAM(RO) , - j; Save address of process name 
AC : INCW SPNBSW_REFC(R2) ; Increment reference count 
AD 110$: MOVL SPPBSL_FLINK(RO) ,RO ; Advance to next process 
re BRB 100$ 3; Iterate over all SPPBs 
AD 91 120$: CLRL (R4)+ 3; List end mark 
ah Si 
AD 34 3 call SCS$DIRECTORY_LOOKUP to do Lookups 
AD %6 : R3: address of $ 
. 4 3 R2 : address of sinseted argument List 
AD 39 , DECW ie TIMEOUT (RS) ; Set timeout to -1 to flag scan 
ADB 0 PUSHR “M<R3 : Save regs 
ADD 1 BSBW ScSsn[a to LOOKUP : Call lookup routine 
AE § POPR 
AE 130$:  POPL R5 3; Restore TQE address 
AE 4 140$: RSB 
AS 8 
ee : Get here when a polled process is found; 
AE ; RI is address of recess name in SPPB 
AE : is address of 
4 
8 


> 
m 
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INN > ap andisthea is abo bee 


R5 is address of process information 
R4 is address of node name 
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¥ou-000 STAKTSPOLL = "Start poll Service bade "SSEP=19B¢ O9:17:28 USYSUSRCHRESVeL mane: «= P88" 38, 


AFD 26 3 
AFD 24650; if the notification routine returns suc ote. disable polling 
ar 2 § or the an, on the system on which was found 
10 B81 16 4 JSB arent Hose PROCNAM(R1) 04 Bh goer rregeran routine 
BA 4 POPR R3,R4,R55 ; Restore regist 
9 5? 4 Bhat Brencd to eave "potting enabled 
50 A 4 § MOVZWL fo, 310 te SPPB raocua ing bit number 
00 5A a2 50 4 BBCC — RO, e338 _ENBMSK (R27, 310$ (Lear "eotiten bit 
B ; 2 § 310$: RSB ; Have handled event 
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SCSLOA = System Communications Service Loadcode 16-SEP-1984 00:19: AX/VMS Macro V04-00 P 
v625000 SCSSDIR LOOKUP = look up process names o g78 pa} 984 89:19:35 LOS SRCISCSVEC MARS 1 —" 8) 
; : cee ot -SBTTL SCSSDIR_LOOKUP = Look up process names on remote node 
8 f 44 : SCS$DIR_LOOKUP 
BOF 108 + INPUTS 
BOF t2$ 3 ® - address of SPNB (Systen Process Name Block) 
BOF 2447 ; R - address of target SB 
B 4 rt : IPL - IPL$SCS 
BOF 2450 ; FUNCTION 
F 2651; Connect to SCSSDIRECTORY service on remote system, look 
BOF 2452 ; up pretess hanes in specified List, and notify caller 
F 26 5 of the ones which exist 
tHE 
4B GF GF 4C SF 52 49 44 ; 53 $3 3 14 456 MY_PROC: eASCII /SCS$DIR_LOOKUP / ; Name of process on local node 
52 4F 54 43 45 52 49 44 3 3 é3 3 at 2457 REM_PROC: ASCII /SCS$DIRECTORY / ; Name of process on remote node 
F 458 SCSSDIR_LOOKUP: 
OBSE 5480 ‘ 
08 : te! $ Connect to remote node 
| 6S 8 F 288 MOVL R2,R5 ; Save context in safe register 
464 CONNECT MSGADR=MSG_INPUT,- : Try connect to directory 
B 465 ERRADR=ERR_ROUTINE,- ; service on remote node 
298 RPRNAM=REM_PROC,- 
: 46 LPRNAM=MY_PROC,- 
: $88 RSYSID=SB$B_SYSTEMID(R3) ,- 
: rt INITCR=41,- 
470 AUXSTR=(R2) 
; 471 BLBS RO,10$ :; If LBS, okay 
; $36 MOVL 3; Get SPNB 
B6C «247 BSBW RESET TIMER 3; Re-enable polling on this node 
BOF 2474 JSB G*COMSDORVDEALMEM ; And deallocate 
: 5 ri RSB 3; Return 
g t3$ 10$: MOVL CDT$L_AUXSTRUC(R3) ,R2 3; Restore context 
BPA gh 78 MNEGB #1, SPRBSB_INDEX (R25 : Init index 
B7E 2480 ; 
are rt 1 ; Allocate CDRP and set it up 
i r $ ' not bg SLDAPOC LENGTH. Rt :; Specify number of bytes needed 
485 BSBW  SCS_ALONONPAGED ; Allocate from npagedpool 
; § 4 § POPL R 
: 4 BLBC RO,25 3; No memory available 
BBC ek PUSHR #*M<RO,R1,R2,R3,R4,R5> 3: Save regs destroyed by MOVC 
62 2c E 4 mOvCS #0,(R25,40 #CDRPSC LENGTH, (R2) : Zero out block 
4 POPR #*M<RO,R1,R2,R3,R4,R5> : Restore regs 
+4} 49 MOVL . ; Move CORP to arg register 
- 136 MOV Ri, Nate CORPSIZE(RS) : Set up block size 
B90 4 MOVZBW #DYNSC_CDRP, - 
BA 494 Eyres D_TYPE (RS) : Set type 
BA1 2495 MOVL R35, CORPSL-CDT(R5) : Set C 
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SCSLOA = System Communications Service Redtets 16-SEP-1984 AX/VMS o V04-00 Page 57 
¥625000 SCS$DIR LOOKUP = look up process names o 23 P=1984 88: 13: 3 SYS.SR (58 SVEC. MAR; 1 ° (6) 
139 
497 ; 
| ? 8 : Allocate message buffer and store next process name to look for 
15$:  ALLOC_MSG_ BUF 
53 24 a5 00 MOVL CORPS _CDT(RS) ,R3 ; Get COT 
my 8F A PUSH R <R?> : Save cor 
56 ¢ A3 MOVL eotat AU AUXSTRUC (RS) R6 : Get 
14 A 4 INCB SPNB EX(R6) : ieke ~ next name 
57 14 A A 5 MOVZBL SPNBS$B_ { NDEX (R6),R 3; Get index 
57 18 A64 09 : MOVL PNBSB “HARE ST (ROS ER7, R? : Get next process nane 
1A 1 C BEQL 0 : If zero, end of List 
6¢ Be C 3 CLRL Re) ; Zero out first Longuord of msg 
04 A2. 6 D C 5 MOVa (R7) ,4(R2) : Move to message buff 
Oc A208 A? 7D OBCB8 2510 MOVa  B(R7$,12(R2) : (16 bytes) 
goc0 er BA OBCD 2511 POPR #*M<R6,R7> : Restore CDT 
1 4 00 D1 216 MOVL #36,R1 ; Maximum size of msg (for HSC) 
20 AS D4 OBD4 31 CLRL —_CDRPSL_RSPID(RS) ; No response ID 
rape 14 gene _CNT_MSG_BOF 3: Send it 
co 11 DA 2515 T5$ 3; More names to look for? 
bape 9819 
bc 218 3; No more processes to look for - clean up 
be $830 dos 
00CO 8F BA hee 521 #*°M<R6,R7> 3; Restore CDT and stack 
E 5 § DEALLOC MSG _BuF ; Deallocate message buffer 
05 OBE 5 RSB 
OBES 5858 
ti § : Deallocate SPNB (when CDRP allocate fails) 
50 SC A3 DO OBES 25 8 25$:  MOVL CDTS$L -AUXSTRUC(R3), RO : Get SPN 
59 §6©10 E8 25 BSBB RESET 3 lenehts polling for node 
00000000'GF 16 EA 2530 JSB GE CORSDAVBEALMEM 3; And deallocate 
FO 2531 DISCONNECT : Break connection 
05 OBF6 2532 RSB 
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p++ 
¢ ; MSG_INPUT 
Process responses from SCSSDIRECTORY 


INPUTS 
Re - Address of response message 
R - COT address 
- POT address 
IPL - Port device fork IPL 
FUNCTION 


Notifies lookup initiator of found process 


STE TELE IE TESTES ETT 
t 
7 
=z 
ys 


MSG_INPUT: 
R6,R7> : 
RS 


If no success, return 
Save registers 
Get address of SPNB 


; Move to safe register 


Search for name in List of names we've asked about 


R6 
0S: peur PNBS$B_NAMLST(R5)CR6),R7 
CMPCS «= #16, (R7) ,4(R4) 
BE 20$ 


INCL Re 
BRB 10$ 


Send on notice that remote node has process 


20$: MOVL  R7,R1 
MOVAB <4+16>(R4 


)R3 : 
MOVL § SPNBS$L_SB(R5) ,R2 : 
JSB @SPNBSC _ROUTINE (RS) : 

; Clean up 
308: POPR #*M<R1,R2,R3,R4,R5,R6,R7> ; 
"  DEALLOC_MSG_BUF_REG F 
MOVL COTS AOXSTRUC(R3) ,RO ; 
DECW SPNB Q_REFC(RO) : 
BEQL 0$ : 


RSB 


Init index 

Get next name 

If eql, end of List 
Look for match 
Found one F 
Next item in List 
Loop 


Get address of process name 
Get address of process info 
Get address of SB 

Pass to our notification rtn 


Restore registers 


; Return message buf to SCS 
; Get address of SPNB 


Decrement reference count 


; Branch if done on connection 
; And return 


3; Clean up on connection 
; & disconnect 


: : We get here if there is no match in the List of names we are polling 
: for. The reference count is not decremented - the connection will 
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SCSLOA - System Communic tions Service shedtede 3 P=1984 00:1 AX/VMS Macro V04-00 Page 59 
v04-000 SCSSDIR-LO LOOKUP ook up process names o pa} 984 88: 13 35 Leys SRC SCSVEC.MAR; 1 . (7) 
f : at remsin open without further polling as a way of flagging this error. 
OOFE 8F BA OC : 80S:  POPR so #*McR1,R2,R3,R4.RS.R6_-R7> ; Just qxit here 
= ot F DEALLOC_ MSG_BUF_REG ; Get rid of buffer 
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v04-000 scs OKUP = look up process names 0 5- SYS.SRCISCSVEC.MAR;1 
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++ 
RESET_TIMER 
Re-enable polling on a node 


- address of SPNB 


OUTPUT 
Polling is re-enabled on node 
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RESET_TIMER: 
PUSHL ; Save R2 

MOVL ; Get address of system block 

; Polling complete 

; Branch to reset timer 

; Request polling 


R 
SPNBSL_SB(RO) ,R2 
$W_TIMEOUT(R2) 


CLRW Sxae a7 SERN SRE? 
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—FWCOOU 


So 
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So 
< 
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G*SCS$GW 48 ll - 3; Reset timer 
SB$W_TIMEOQUT(R2) 

a 3; Restore R2 
B 3; Return 
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OOKUP = look up process names 0 5-SEP-1984 47:2 SYS.SRCISCSVEC.MAR;1 (9) 


Ft 


a4 
ERR_ROUTINE 
Handle broken connections 


INPUTS 
R 


wm 


5 : - error status 
8 3 R - address of CDT 
; RG - address of PDT 
: FUNCTION 
3 Deallocate all message buffers and CDRP'S associated with 
Z : given CDT, and disconnect. 
} 
8 
9 


RR_ROUTINE: 
SCAN_MSGBUF WAIT - 3; Find CDRP'S 
ACTION = CLEANUP_RTN 
pistemest ; Break connection 
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SCSLOA = System Communications Service sledtede 1 SEP=1 AX/VMS 0 V04-00 Page UTIL 
vO2=000 SCSSDIRAL OKUP = look up process names o ~$Eb= 382 83: 13 3 SYS.SR 58 SVEC. MAR; 1 . (§) V04- 
C 4] ; 
¢ gi ; CLEANUP_RTN 
C a4 : INPUTS 
C 45; R3 - address of CDT 
C 28 3 R - address of PDT 
: ? 3 RS - address of CDRP 
C 49 ° 
C7 CLEANUP_RTN: 
i | 
ef o27 ; Remove CDRP from queue, if needed 
52 D cf 5° PUSHL R2 
04 A Dd C 2$ TSTL DRPSL_FQBL(R5S) ; Is there a queue pointer? 
+ Be C78 5 BEQL : If EQL, none 
55 04 B5 »} fe o38 Had CORPSL_FQBL(R5) ,R5 3 is CORE = a@ queue? 
3 ° 
55 3 OF OC 660 REMQUE (R5),R5 3 Dequeue CDRP 
52.28 AS 09 C 661 MOVL CORPSL_RUCPTR(RS) ,R2 : Get wait count pointer 
0 1 C 666 BEGL $ ; Branch if none 
6 B7 O0C89 98 DECW (R2) 3; Adjust 
tee 5663 
: $68 ; Deallocate associated message buffer, if any 
52 8EDO OC 008 S$; POPL Re ; Restore reg 
iC A be : ‘ 66 cait CORPSL_MSG_BUF (R5) : 9 ye. nove any message buffers? 
C93 2671 DEALLOC_MSG_BUF ? Get rid of it 
8 $20 
Ocse ore + Return CDRP to non-paged pool 
50 55 DO 0696 676 10$: MOVL ; Address of CDRP in RO 
00900000" Gf 16 0C99 267 JSB eres DRVDEALMEM : Give back to pool 
50 C AS) «60 OCOC9F 143 MOVL COTSL oAUKS TRUC (RS). RO ; Get address of SPNB 
9E 10 7 67 BSBB RESET-T ; Re-enable polling 
00000000'GF 16 OCA ret JSB 6° COMSDRVDEALMEM ; Return to pool 
05 OCAB 2681 RSB 3; Cleanup done 
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cat 5-SEP=-1 SYS.SRCISCSVEC.MAR; 1 
~SBTTL SCSSPOLL_MBX = Declare Polling Notification Mailbox 


+ 
ia 


FUNCTIONAL DESCRIPTION: 


This routine is called to declare a mailbox to receive notification 
when a process name appears in an SCS directory. 


This routine, and its companion SCSSCANCEL_MBX, are assumed to be 
used as follows: 


SCREROE 5. TT create mailbox 

XX 
JSB SCSEPOLL_nax sdeclare polling notification 
BLBC xXx 
$aQ10 #10$_READVBLK,... sread messages from mailbox 
JSB SCSSCANCEL_MBX cancel pollin neon notification 
SDASSGN ... sdeassign mailbox 


Note that this sequence aay be complete before the process 
exists, for whatever reason 


CALLING SEQUENCE: 


JSB SCSSPOLL_MBX 
IPL must be at IPL$_ASTDEL 


INPUT PARAMETERS: 


RO is the mailbox channel number 
R2 is the address of process name address 


OUTPUT PARAMETERS: 

R1 is the address of the SPPB created to service this request. 
COMPLETION CODES: 

RO contains status 
SIDE EFFECTS: 

RO,R1 are destroyed 


Bete Se Ge Ge Ge Ge Se Ge Se Ge Ge Be Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Fe Se Se Ge Ge Se Ge Ge Se Se Sse Ge Sse Se Sse Gets Ge te ts tsetse 


SSPE gene 
JSB G-TOCSVERIF YCHAN : verity channel number 
BLBC ; Branch on invalid channel 


SCSLOA = System Communications Sery ice Loadcode 16-S$ AX/VMS Macro Vv04-00 Page 
voe000 SCSSPOLL_MBX = Declare Polling \uordgod BEE mi 8ks OSiarias FeNS Ves Heeco yn; 00, vt) 
¢ of 7 CB7 & MOVQ (SP) ,R2 ; Restore registers 
Dd CBA 4 MOVL CCBSL_UCB(R1) ,R1 ; UCB addres 
5C Al 8 cB 4 INCW Use W"REFC(RIS 3 Re L down vce -- security Lanket 
50 ODB'AF — OCC 4 MOVAB 6% os RO : aeqrest of notication routine 
CC a DSBINT PL §cs : 
FC95 38 CCA 274 BSBW = SCSS$POLL_PROC 3 Beelars process to poll 
05 § £ cc res BLBC RO,10$ ; Branch on erro 
D4 OCD 74 CLRL R 3 ay polling node for all systems 
CD 74 3 {s address of SPPB 
CD f : is odd to enable polling 
FCDS)§=630)=—(0CD SBW SCSSPOLL_MODE 3 EPabte Poli in ng 
cD f 0s: ENBINT 3; Restore IPL 
oc ‘ +44 : 4% #*M<R2,R3> ; Restore pesteters 
ue 
coe f § ; Mailbox message format 
CDB 138 : 3 24 23 16 15 08 07 00 
COB 2760 ; 00 } System iD (l.o.) { 
CDdB 761 5 Hmmm meme mewn wn peewee ewww ee wwewn peewee eeeeoeoenpoceecoeoceceoe= + 
CoB 166 : 04 } Unused (zero) ; System iD (h.o.) { 
CdB 76 3 ¢ wer eee nen ene n anf owe sorcerer wmecace eee eece ene e se sae} esses ecescescesesas + 
COB 2764 ;: 08 } Node Name } 
CDB 2765 ; ' ( 16 bytes ) H 
CbB 766 3 H 
COB 2767 ; H ; 
CDB £08 : $eweeccececoeson}oocececesceoosn $ewcececcocecocn $ooeceecceeccoce + 
CbB 8 5 24 |} eens 
CdDB 2770; ' Nam H 
CoB re : Bytes ) 
Py H y ' 
cdB 77 Fy $oeweeoeeoeeoeeeoe}eoeeeeeeeeeesees}oeceeseeceseoeees pme renee rene nse + 
COB 2774 ; 46 } ieasters H 
CdDB 2775; ' Information ' 
CoB rg 3 ' (1 
COB 2777 ; ' Bytes ) : 
eee ore 3 56 ¢eoceon mercer se ee Fewer e een ene wren beer eee ese eee anes peer eww nes. eee anne + 
tbe 578) 
rt 7 § : Notification routine called when process name is found 
CdB 5 4 : Inputs: 
COB 2785 ; RO is UCB address 
COB 27 § : Ri is address of process name 
COB 2787 ; R¢ is address of system 
COB 27 3 : R35 is address of process information 
ts if 3 R4 is address of node name 
COB 27 ? : Outputs: 
COB 2792 ; Ri-RS destroyed 
te 4 : RO is status 
55 o 8 COB 2795 io0s: MOVL RO,R5S 3 Notific tion still wanted? 
39 + CDE 2796 BEQL 116$ + Branch th fe 


SCSLOA = System Communications Sery ice Loadcode 16-SEP-1984 AX/VMS sce v04-00 Page 65 
962 +000 SCSSPOLL_MBX = Declare Polling Loadgode gr See TSBs BS:1F:38 PANCMES Macro YOK=00, ae $7, 
C ASSUME PRCPOLSC_SIZ,E0,56 3 Ensure site. is longword aligned 
f 38 C C , SUBL2 PPRCPOLSC’ 1 sEs Rak ne mgt a . ° 
—E OD ¢ ™ P a9 tagdress. allocated space 
C ASSUME bie S_PROCINF, fe 16 nt to message on stack 
30 a0 08 a3 dD OC mova f ) ,PRCPO POL SB Silt agcal Brecess internet ion o= 
28 AO 6 D OCEB mova R3) ,PRCP FOL BIRINF(RO) ;: 16 bytes 
CEF ASSUME SDIR$S PR OCNAR. EQ 16 
20 a0 08 Al 7D OCEF MOVa (R1) PRCPOL SB RENAM*B(RO) ; i Pesta name -- 
18 AO 61 7D OCFS4 MOVa R1) ,PRCPOL PRENAR(R ) 
crs : ASSUME SBS$T NODENAME?16 BS\ 068 
10 a0 08 AG) «O7DC#O CF MOVa (ROT gbRCPOLSTN T_NO NODHAM NAM+B (ROD ; Node name -- 
08 AO 64 7D OCFD MOva R4),P PRCPOL T_RODNAM(RO) ss: bytes 
D01 ASSUME ses SYSTEMID>EQ,6 
04 AO 04 a2 3C 0001 281 MOVZWL 4(R2T gPRCPOL St SYSIDH(RO) —; System 1D -- 
0 DO OD $ 1 OVL  (R2),PRCPOLSL_SYSIDL(RO) bytes 
4 D 1 OVL 0,Rré : Address o message 
x A ODOC 281 MOVZBL #PRCPOL$C_$1Z,R3 : Length of message 
0000 000" GF 16 OD 14 JSB G* KESUR RTMAILBOX : Put message » tats astibes 
—E 38 ¢ D1 15 ADDL2 ppRCPOLSC S12, SP : Clean stac 
p1 1 RSB :; On success, disable polling 
50 01 DO 001 17 110$: MOVL  S*#SS$_NORMAL,RO : Disable polling 
05 ODIC 2818 RSB 
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~-SBTTL SCSSCANCEL_MBX = Cancel Polling Notification Mailbox 
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FUNCTIONAL DESCRIPTION: 


This routine is called to cancel mailbox delivery of notification 
when a process name appears in an SCS directory. 


vee yeor of a notification mailbox must call this routine before 
exiting and before deassigning its channel to the mailbox. If this 
constraint is not satisfied, the mailbox may remain forever, 
undeleted. 

CALLING SEQUENCE: 


JSB SCSSCANCEL_MBX 
IPL must be in range 0 to IPL$_SCS, IPLS_TIMER 


INPUT PARAMETERS: 
Ri is the address of the SPPB 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
RO contains status 
SIDE EFFECTS: 
RO,R1,R2 are destroyed 


mn Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Se Se Se Se Sse Se See Sse Se Se Ge Se tete 
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CSSCANCEL _MBX: 
DSBINT 


NPN FS NWO COCO VUV OVO V VU VV VU VV VVUVVUVUCVUCUVUCOVCVUVCVUVC"T"T"C" 


PIP IOPIPIPINIPPIPIPIPINIPIPIPIPIPOPIPINPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIP IP 


AERO OO IAN EWI OOO NIA NE WII 2 CO OOD NAME WP OW ONAULE WHO 


VCUCVTVCSCVSCSCSCVUOCOVUVTOVCVTVUVTVOVCVUSCOCCVCOCOCVCUVCUUOVCVCUCCVCVCVCCVCUCVTUVTTCF 
WAIIPRIPIIPINUDS 9 9 9 tt a oe 


SOOOCSOOOOOSOOOOSOOSOSSOSOOSOOOOSOOOOOOOOOOOOOOOOOOOOO 


61 #IPL$_SCS ; Raise IPL 
50 0 Al 00 MOVL SPPBSC_CTX(R1),RO ; Mailbox UCB address 

0 Al D4 CLRL SPPB$L_CTX(R1) : Forget mailbox UCB address 

CA 87 DECW UCBSW_REFC(RO) ; Release grip on UCB -- security blanket 
D4 CLRL R :; For all systems 
4 CLRL R ; disable pg ti ing 

FC76 0 BSBW SCSSPOLL_MODE ; Disable polling 
0 peta 3; Restore IPL 


SCSL ommunications Service L de e 1 4 AX/VMS Macro V04- aes P 7 
yo2e000 SCSESHUTDOUN = Shutdoms stl gee Of gudtog grSEE= 18s BOi15:35 PANEMRS Hacc, yOE=00 age (9; 
-SBTTL SCSSSHUTDOWN = Shutdown all SCS virtual circuits 


FUNCTIONAL DESCRIPTION: 
This routine runs down the singly Linked 4. of pcs S spgaking 
Per s, calling the associated port Griver for “cen 8 t finds. 
The port driver will close all visual circuits it has outstanding. 
Control will return upon the port being offline, encountering any 
errors, or successful termination. 

CALLING SEQUENCE: 


JSB SCSSSHUTDOWN 
IPL = 31. 


INPUT PARAMETERS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
RO-R4 are destroyed 


CSSSHUTDOWN: 
MOVAL 


VUVCVVVVTVTVVTVVVCVCVCVVVVVCVUVCVUVCUCVCCCVCVCCVCCOUCTCCS 


ss wn De Se Ge Se Ge Se Ge Sse Ge Ge Ge Se Se Se Se Ge Ge Se Se Ge Se Se Ss Sse Sets Ses Sse Ssetsts 
+ 


901 
54 00000000'9F oD 9 § @#SCSS$GL_PDT,R4 ; Pick up List head of PDT's 
54 4 OD F 29 0$ MOVL (R4),R4 ~ : Get next entry 
ana D4 904 BEQL 208 ; There is none 
0080 D4 =«416 OD4 905 JSB @POTSL_STOP_VCS(R4) ; Call the port driver to close VC's 
7 |. +44 4 § BRB 10$ ; Loop for next one 
05 OD4A 2908 20$: RSB 3; Finish, leave 


vOL=000 ScS¥SHUTDOUN'= "Shutdown atl Ses ui Laedtoge "SrSEb=13BC 89:17:38 HSN MeRc HES L maRs 1 Page 92; 
Maittatti bs scs.e baie ; Align on 16 byte boundary 
8 ! 7 “+ ENDC z End of conditional code 
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LOA 
bol table SYS.SRCISCSVEC.MAR; 1 (14) 


$_ALONONPAGED 

5 “DEALNONPAGD 

S"END 

S"START 

IR$B_PROCINF 

IR$B~PROCNAM 

IRSC-LENGTH 

IRSL-C 

IRSS-P 

IRSS_P 

IRSW"S 

I 

; 
0 
0 
0 
0 
0 
0 
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SPPBSL_RTN 
SPPBS$S_PROCNAM 
SPPB 


SPPBSW_ SIZE 
SS$_ALRDYCLOSED 
SSS_INSF COT 
he a ae 


% L 
SS$_NOSUCHNODE 
SS$_NOSUCHOBJ 
SS$~ UNREACHABLE 
START_POLL 
THREAD_HAS_RWAITCNT 
TQESB_RaTYPE 
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SCSLOA 
Psect synopsis 


PSECT name 


Phase 
Initialization 
Command processing 


Pass 1 
syeso) table sort 


Symbo table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


The g, yorking ses store was 3400 pages. 
472 65 pages) of virtual memory were used to butter the intermediate §8 ode. 

to hold 1608 non-local and 139 local symbols. 

object records in Pass 2. 


bytes ( 
there were 90 pages of 
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Allocation 


SHY 


Page faults 
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gg! source Lines were Paes in Pass 1 


Macro Library name 
~ $52 28DUAGE: pave. -OBJILIB 
$255$DUA SYSLIBISTAR 
TOTALS (all Libraries) 


-MLB;1 
LET.MLB;2 


( 0:) 
( ) 
( 3408.) 


PSECT No. Attributes 


0¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE 
( 1.) NOPIC USR CON ABS LCL NOSHR EXE 
2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 
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! Performance indicators J 


, eo 


CPU Time 


symbol table space ducing 8s 
g Produc ing 
3 pages of virtual memory were used to define & 


Elapsed Time 


93:00 9 
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9 macros. 


+ + 
! Macro Library statistics ! 


deme romeacenm eon eee eee ean ween + 


Macros defined 


1946 GETS were required to define 46 macros. 


There were no errors, warnings or information messages. 


39 
? 


46 
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NORD wet NOVEC BYTE 
RD Y vee BYTE 


MACRO/LIS=LIS$:SCSLOA/OBJ=0BJ$:SCSLOA MASD$:CSYS.SRCJPRMSW/UPDATE=(MASD$:CSYS.ENHJPRMSW) +MASD$: CSYS.SRCISCSVEC/UPDATE=(MASD$:CSYS.EN 
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